Distance on a great circle

Time bar (total: 45.7s)

start0.0ms (0%)

Memory
0.1MiB live, 0.1MiB allocated

analyze1.3s (2.8%)

Memory
8.3MiB live, 1 474.9MiB allocated
Algorithm
1×search
Search
ProbabilityValidUnknownPreconditionInfiniteDomainCan'tIter
0%0%99.8%0.2%0%0%0%0
0%0%99.8%0.2%0%0%0%1
0%0%99.8%0.2%0%0%0%2
0%0%99.8%0.2%0%0%0%3
0%0%99.8%0.2%0%0%0%4
0%0%99.8%0.2%0%0%0%5
0%0%99.8%0.2%0%0%0%6
0%0%99.8%0.2%0%0%0%7
0%0%99.8%0.2%0%0%0%8
0%0%99.8%0.2%0%0%0%9
0%0%99.8%0.2%0%0%0%10
0%0%99.8%0.2%0%0%0%11
0%0%99.8%0.2%0%0%0%12
Compiler

Compiled 67 to 28 computations (58.2% saved)

sample9.1s (20%)

Memory
-20.9MiB live, 8 040.2MiB allocated
Samples
7.8s7 458×1valid
179.0ms798×0valid
Precisions
Click to see histograms. Total time spent on operations: 7.3s
ival-cos: 2.5s (33.8% of total)
ival-sin: 2.3s (32.1% of total)
ival-mult: 688.0ms (9.4% of total)
adjust: 418.0ms (5.7% of total)
ival-sub: 361.0ms (4.9% of total)
ival-sqrt: 268.0ms (3.7% of total)
ival-atan2: 263.0ms (3.6% of total)
ival-div: 234.0ms (3.2% of total)
ival-pow2: 177.0ms (2.4% of total)
ival-add: 69.0ms (0.9% of total)
exact: 10.0ms (0.1% of total)
ival-true: 7.0ms (0.1% of total)
ival-assert: 3.0ms (0% of total)
Bogosity

explain957.0ms (2.1%)

Memory
6.9MiB live, 989.0MiB allocated
FPErrors
Click to see full error table
Ground TruthOverpredictionsExampleUnderpredictionsExampleSubexpression
67119(-3.028572295227876e+145 1.663474330411312e+192 7.52090087319869e-148 -7.124215044616818e-173 1.6437569300876145e+110)0-(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
56141(-3.028572295227876e+145 1.663474330411312e+192 7.52090087319869e-148 -7.124215044616818e-173 1.6437569300876145e+110)0-(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
71(7.486777115348037e+269 6.731795051893815e-242 -2.9171489039566704e-288 -3.2207289657894145e-251 1.1105081351406335e+70)2(2.3406020497611042e-98 -6.521001355254636e-242 -2.091978926109264e-149 -4.124322949279681e+38 -1.8765625209746473e+116)(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
20-0-(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
00-0-(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
00-0-lambda2
00-0-#s(literal 1 binary64)
00-0-phi2
00-0-(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
00-0-(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
00-0-(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
00-0-(*.f64 (cos.f64 phi1) (cos.f64 phi2))
00-0-(-.f64 lambda1 lambda2)
00-0-R
00-0-(cos.f64 phi2)
00-0-lambda1
00-0-(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
00-0-phi1
00-0-(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
00-0-(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
00-0-(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))
00-0-#s(literal 2 binary64)
00-0-(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
00-0-(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
00-0-(-.f64 phi1 phi2)
00-0-(cos.f64 phi1)
Explanations
Click to see full explanations table
OperatorSubexpressionExplanationCount
sin.f64(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))sensitivity1970
sin.f64(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))sensitivity1861
-.f64(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))cancellation67
sqrt.f64(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))uflow-rescue20
↳(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))underflow11
↳(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))underflow12
↳(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))underflow2
Confusion
Predicted +Predicted -
+1070
-13613
Precision
0.4403292181069959
Recall
1.0
Confusion?
Predicted +Predicted MaybePredicted -
+10700
-136013
Precision?
0.4403292181069959
Recall?
1.0
Freqs
test
numberfreq
013
197
2144
32
Total Confusion?
Predicted +Predicted MaybePredicted -
+100
-000
Precision?
1.0
Recall?
1.0
Samples
536.0ms458×1valid
11.0ms54×0valid
Compiler

Compiled 854 to 82 computations (90.4% saved)

Precisions
Click to see histograms. Total time spent on operations: 422.0ms
ival-cos: 151.0ms (35.8% of total)
ival-sin: 105.0ms (24.9% of total)
ival-sub: 37.0ms (8.8% of total)
ival-mult: 33.0ms (7.8% of total)
adjust: 32.0ms (7.6% of total)
ival-atan2: 22.0ms (5.2% of total)
ival-sqrt: 13.0ms (3.1% of total)
ival-div: 13.0ms (3.1% of total)
ival-pow2: 10.0ms (2.4% of total)
ival-add: 4.0ms (0.9% of total)
ival-true: 1.0ms (0.2% of total)
exact: 1.0ms (0.2% of total)
ival-assert: 0.0ms (0% of total)

preprocess380.0ms (0.8%)

Memory
26.7MiB live, 228.6MiB allocated
Algorithm
1×egg-herbie
Rules
13 332×lower-fma.f64
13 332×lower-fma.f32
4 598×lower-+.f32
4 596×lower-+.f64
3 256×lower--.f32
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
02331311
15441304
213531304
335321280
461861272
02665
04565
17465
213265
327365
452365
587365
6134565
7163765
8216765
9294965
10412065
11438665
12452765
13458765
14461165
15478065
16522165
17531065
18531065
19531865
20637165
0856163
Stop Event
1×iter limit
1×node limit
1×iter limit
1×node limit
Calls
Call 1
Inputs
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
Outputs
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
Symmetry

(negabs R)

Compiler

Compiled 70 to 26 computations (62.9% saved)

eval0.0ms (0%)

Memory
0.4MiB live, 0.4MiB allocated
Compiler

Compiled 5 to 5 computations (0% saved)

prune13.0ms (0%)

Memory
-35.8MiB live, 2.1MiB allocated
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶66.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
Compiler

Compiled 70 to 26 computations (62.9% saved)

simplify300.0ms (0.7%)

Memory
33.8MiB live, 214.5MiB allocated
Algorithm
1×egg-herbie
Localize:

Found 4 expressions of interest:

NewMetricScoreProgram
cost-diff0
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
cost-diff128
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
cost-diff384
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
cost-diff384
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
Rules
13 332×lower-fma.f64
13 332×lower-fma.f32
4 598×lower-+.f32
4 596×lower-+.f64
3 256×lower--.f32
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
026390
045390
174390
2132390
3273390
4523390
5873390
61345390
71637390
82167390
92949390
104120390
114386390
124527390
134587390
144611390
154780390
165221390
175310390
185310390
195318390
206371390
08561380
Stop Event
1×iter limit
1×node limit
1×iter limit
Calls
Call 1
Inputs
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
R
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(-.f64 phi1 phi2)
phi1
phi2
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos.f64 phi1)
(cos.f64 phi2)
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
#s(literal 1 binary64)
Outputs
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
R
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
(atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(sqrt.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))
(-.f64 phi1 phi2)
phi1
phi2
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) (cos.f64 phi1)))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(cos.f64 phi1)
(cos.f64 phi2)
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))
(sqrt.f64 (-.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(-.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1))) (cos.f64 phi2)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
#s(literal 1 binary64)

localize344.0ms (0.8%)

Memory
15.8MiB live, 368.6MiB allocated
Localize:

Found 4 expressions of interest:

NewMetricScoreProgram
accuracy0.650329111447397
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
accuracy0.7202062309240814
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
accuracy12.087259885353925
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
accuracy14.320260536403843
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
Samples
297.0ms229×1valid
5.0ms27×0valid
Compiler

Compiled 392 to 28 computations (92.9% saved)

Precisions
Click to see histograms. Total time spent on operations: 244.0ms
ival-cos: 115.0ms (47.1% of total)
ival-sin: 66.0ms (27% of total)
ival-mult: 18.0ms (7.4% of total)
adjust: 11.0ms (4.5% of total)
ival-sub: 7.0ms (2.9% of total)
ival-sqrt: 7.0ms (2.9% of total)
ival-div: 7.0ms (2.9% of total)
ival-atan2: 6.0ms (2.5% of total)
ival-pow2: 5.0ms (2% of total)
ival-add: 2.0ms (0.8% of total)
ival-true: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

series124.0ms (0.3%)

Memory
-32.4MiB live, 148.8MiB allocated
Counts
8 → 300
Calls
Call 1
Inputs
#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())
#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())
#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())
#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())
#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())
#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())
#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())
#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())
Outputs
#s(alt (* -1/2 lambda2) (taylor 0 lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor 0 lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor 0 lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor 0 lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor 0 lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 lambda2)) (taylor 0 lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2))))) (taylor 0 lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2)))))) (taylor 0 lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))) (taylor 0 lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor 0 lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (taylor 0 lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))))) (taylor 0 lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 lambda1) (taylor inf lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor inf lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor inf lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor inf lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor inf lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 lambda1) (taylor -inf lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2))) (taylor -inf lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2))) (taylor -inf lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2))) (taylor -inf lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 phi1) (taylor 0 phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor 0 phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor 0 phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor 0 phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor 0 phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 phi1)) (taylor 0 phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1))))) (taylor 0 phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1))))))) (taylor 0 phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) (taylor 0 phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* phi2 (- (* -1 (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* phi2 (- (* phi2 (- (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (taylor 0 phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))))) (taylor 0 phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 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))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))))))) (taylor 0 phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 phi2) (taylor inf phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2)) (taylor inf phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2)) (taylor inf phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2)) (taylor inf phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor inf phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor inf phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor inf phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor inf phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 phi2) (taylor -inf phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))) (taylor -inf phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))) (taylor -inf phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))) (taylor -inf phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))))))) (taylor -inf phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (taylor -inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (taylor -inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (taylor -inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (taylor -inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (taylor -inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (taylor -inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (taylor -inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (taylor -inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 phi2) (taylor 0 phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor 0 phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor 0 phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor 0 phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor 0 phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 phi2)) (taylor 0 phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2))))) (taylor 0 phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) (taylor 0 phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2))))))))) (taylor 0 phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* -1 (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))) (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (taylor 0 phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))))) (taylor 0 phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))))))) (taylor 0 phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 phi1) (taylor inf phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor inf phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor inf phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor inf phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor inf phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 phi1) (taylor -inf phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2))) (taylor -inf phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2))) (taylor -inf phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2))) (taylor -inf phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))) (taylor -inf phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))) (taylor -inf phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))) (taylor -inf phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))))))) (taylor -inf phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (taylor -inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (taylor -inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (taylor -inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (taylor -inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 lambda1) (taylor 0 lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor 0 lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor 0 lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor 0 lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor 0 lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 lambda1)) (taylor 0 lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1))))) (taylor 0 lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1))))))) (taylor 0 lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1))))))))) (taylor 0 lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor 0 lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (taylor 0 lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))))) (taylor 0 lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 lambda2) (taylor inf lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2)) (taylor inf lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2)) (taylor inf lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2)) (taylor inf lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor inf lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor inf lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor inf lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor inf lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 lambda2) (taylor -inf lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor 0 R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor 0 R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor 0 R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor 0 R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor inf R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor inf R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor inf R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor inf R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor -inf R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor -inf R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor -inf R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor -inf R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
Calls

15 calls:

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

simplify199.0ms (0.4%)

Memory
13.5MiB live, 246.8MiB allocated
Algorithm
1×egg-herbie
Rules
9 312×lower-fma.f64
9 312×lower-fma.f32
7 506×lower-*.f64
7 506×lower-*.f32
2 514×lower-+.f64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
052010244
1168110020
257709998
081229552
Stop Event
1×iter limit
1×node limit
Counts
300 → 300
Calls
Call 1
Inputs
(* -1/2 lambda2)
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(sin (* -1/2 lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(* 1/2 lambda1)
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(* 1/2 lambda1)
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(* 1/2 phi1)
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(sin (* 1/2 phi1))
(+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1)))))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))))))
(- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(- (+ 1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(- (+ 1 (* phi2 (- (* -1 (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(- (+ 1 (* phi2 (- (* phi2 (- (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 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))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))
(* -1/2 phi2)
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(* -1/2 phi2)
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(* -1/2 phi2)
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(sin (* -1/2 phi2))
(+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2))))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))
(- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(- (+ 1 (* -1 (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(- (+ 1 (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(- (+ 1 (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))) (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))))
(* 1/2 phi1)
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(* 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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(* 1/2 lambda1)
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(sin (* 1/2 lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(* -1/2 lambda2)
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(* -1/2 lambda2)
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
Outputs
(* -1/2 lambda2)
(*.f64 lambda2 #s(literal -1/2 binary64))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi1) lambda1) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 phi2))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (*.f64 lambda1 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) lambda1 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi1) lambda1) (cos.f64 phi2)) (*.f64 #s(literal -1/6 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) lambda1)) lambda1 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(sin (* -1/2 lambda2))
(sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 lambda1 #s(literal 1/2 binary64)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) lambda1 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (neg.f64 (*.f64 (*.f64 (cos.f64 phi1) lambda1) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 phi2)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(- (+ 1 (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (neg.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (*.f64 lambda1 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) lambda1 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(- (+ 1 (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (neg.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) #s(literal 1/6 binary64)) (*.f64 (cos.f64 phi1) lambda1))) lambda1)) lambda1 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(fma.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) lambda1)) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(fma.f64 (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (fma.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1/4 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) lambda1 (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 phi2))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) #s(literal 1/2 binary64)) lambda1 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(fma.f64 (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1/4 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 (fma.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1/4 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (/.f64 (cos.f64 phi2) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 phi2))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64))) lambda1))) (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) lambda1 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(* 1/2 lambda1)
(*.f64 lambda1 #s(literal 1/2 binary64))
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(* 1/2 lambda1)
(*.f64 lambda1 #s(literal 1/2 binary64))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(*.f64 (neg.f64 lambda1) (fma.f64 (/.f64 lambda2 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(*.f64 (neg.f64 lambda1) (fma.f64 (/.f64 lambda2 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(*.f64 (neg.f64 lambda1) (fma.f64 (/.f64 lambda2 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(* 1/2 phi1)
(*.f64 phi1 #s(literal 1/2 binary64))
(+ (* -1/2 phi2) (* 1/2 phi1))
(*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))
(+ (* -1/2 phi2) (* 1/2 phi1))
(*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))
(+ (* -1/2 phi2) (* 1/2 phi1))
(*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))
(+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))
(fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (*.f64 (neg.f64 phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi2 (*.f64 (neg.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))))) phi2 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal 1/6 binary64) phi2) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) phi2 (*.f64 (neg.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))))) phi2 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(sin (* 1/2 phi1))
(sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))
(fma.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (*.f64 phi2 #s(literal -1/2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1)))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal -1/2 binary64))) phi2 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/8 binary64))) phi2 (*.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal -1/2 binary64))) phi2 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (+ 1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ 1 (* phi2 (- (* -1 (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (fma.f64 (neg.f64 phi2) (fma.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ 1 (* phi2 (- (* phi2 (- (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (fma.f64 (neg.f64 (fma.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 #s(literal 1/6 binary64) phi2) (fma.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))))) phi2 (*.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))
(fma.f64 (*.f64 phi2 (*.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal -1/2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (fma.f64 (*.f64 phi2 #s(literal 1/2 binary64)) (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (/.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (fma.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal -1/2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) phi2 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 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))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))
(fma.f64 (fma.f64 (*.f64 phi2 #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (/.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (fma.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64)))) (*.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (/.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (fma.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) (/.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 #s(literal 1/6 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))) phi2))) (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal -1/2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) phi2 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(* -1/2 phi2)
(*.f64 phi2 #s(literal -1/2 binary64))
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2)
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2)
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2)
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(* -1/2 phi2)
(*.f64 phi2 #s(literal -1/2 binary64))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(*.f64 (neg.f64 phi2) (fma.f64 (/.f64 phi1 phi2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(*.f64 (neg.f64 phi2) (fma.f64 (/.f64 phi1 phi2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(*.f64 (neg.f64 phi2) (fma.f64 (/.f64 phi1 phi2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(* -1/2 phi2)
(*.f64 phi2 #s(literal -1/2 binary64))
(+ (* -1/2 phi2) (* 1/2 phi1))
(*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))
(+ (* -1/2 phi2) (* 1/2 phi1))
(*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))
(+ (* -1/2 phi2) (* 1/2 phi1))
(*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))
(fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi1 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) phi1 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 #s(literal -1/6 binary64) phi1) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) phi1 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) phi1 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(sin (* -1/2 phi2))
(sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))
(+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))
(fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi1) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/48 binary64) phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal -1/8 binary64))) phi1 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))
(- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(-.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))
(- (+ 1 (* -1 (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) phi1) (-.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))
(- (+ 1 (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (neg.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi1 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) phi1 (-.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))
(- (+ 1 (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))) (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (fma.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (*.f64 #s(literal -1/6 binary64) phi1) (fma.f64 (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))))) phi1)) phi1 (-.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))
(fma.f64 (*.f64 phi1 (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))
(fma.f64 (*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (fma.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (/.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (fma.f64 (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) phi1 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) #s(literal 1/2 binary64)) phi1 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))))))))))
(fma.f64 (fma.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (/.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (fma.f64 (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) (*.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (fma.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (/.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (fma.f64 (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) (/.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (*.f64 #s(literal -1/6 binary64) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) phi1))) (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) phi1 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))
(* 1/2 phi1)
(*.f64 phi1 #s(literal 1/2 binary64))
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1)
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1)
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1)
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(* 1/2 phi1)
(*.f64 phi1 #s(literal 1/2 binary64))
(* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (neg.f64 phi1) (fma.f64 (/.f64 phi2 phi1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (neg.f64 phi1) (fma.f64 (/.f64 phi2 phi1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (neg.f64 phi1) (fma.f64 (/.f64 phi2 phi1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(* 1/2 lambda1)
(*.f64 lambda1 #s(literal 1/2 binary64))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (*.f64 (neg.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (neg.f64 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (cos.f64 phi2))) (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (*.f64 (*.f64 lambda2 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) lambda2 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (neg.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (*.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi1) lambda2) (cos.f64 phi2)) (*.f64 #s(literal 1/6 binary64) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) lambda2)) lambda2 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(sin (* 1/2 lambda1))
(sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(fma.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (*.f64 lambda2 #s(literal -1/2 binary64)) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) #s(literal -1/2 binary64))) lambda2 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) lambda2) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal -1/8 binary64))) lambda2 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) #s(literal -1/2 binary64))) lambda2 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi1) lambda2) (cos.f64 phi2)) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(- (+ 1 (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (neg.f64 (*.f64 (*.f64 (cos.f64 phi1) lambda2) (cos.f64 phi2))) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (cos.f64 phi2))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))) lambda2 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(- (+ 1 (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))) (cos.f64 phi2) (*.f64 (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (*.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64)) (*.f64 (cos.f64 phi1) lambda2))) lambda2)) lambda2 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(fma.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 phi1) lambda2)) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1/4 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))))) lambda2 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1/4 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) (*.f64 (fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1/4 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))) (/.f64 (cos.f64 phi2) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (cos.f64 phi2))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64))) lambda2))) (*.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) lambda2 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(* -1/2 lambda2)
(*.f64 lambda2 #s(literal -1/2 binary64))
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) lambda2)
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) lambda2)
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) lambda2)
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(* -1/2 lambda2)
(*.f64 lambda2 #s(literal -1/2 binary64))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(*.f64 (neg.f64 lambda2) (fma.f64 (/.f64 lambda1 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(*.f64 (neg.f64 lambda2) (fma.f64 (/.f64 lambda1 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(*.f64 (neg.f64 lambda2) (fma.f64 (/.f64 lambda1 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))

rewrite205.0ms (0.4%)

Memory
30.0MiB live, 253.2MiB allocated
Rules
5 830×lower-*.f32
5 820×lower-*.f64
5 266×lower-/.f32
5 262×lower-/.f64
2 482×lower-fma.f64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
026174
045174
1149149
2997145
08852142
Stop Event
1×iter limit
1×node limit
1×iter limit
Counts
8 → 273
Calls
Call 1
Inputs
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
Outputs
(*.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 (+.f64 phi2 phi1) #s(literal 2 binary64)) (/.f64 (-.f64 phi1 phi2) (+.f64 phi2 phi1)))
(*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))
(*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))))
(*.f64 (neg.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)) #s(literal -1 binary64)))
(*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))
(*.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)) #s(literal 1 binary64)) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)) #s(literal -1 binary64))
(/.f64 (fma.f64 (*.f64 (*.f64 phi1 phi1) phi1) #s(literal 1/8 binary64) (pow.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (*.f64 phi1 #s(literal 1/2 binary64)) (-.f64 (*.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))))
(/.f64 (neg.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (neg.f64 (+.f64 phi2 phi1)))
(/.f64 (neg.f64 (*.f64 (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (neg.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))))
(/.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 (fma.f64 phi1 #s(literal 1/2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (-.f64 (*.f64 (*.f64 (*.f64 phi1 phi1) phi1) #s(literal 1/8 binary64)) (*.f64 (*.f64 (*.f64 phi2 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)) (fma.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 (neg.f64 (neg.f64 (-.f64 phi1 phi2)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (-.f64 (*.f64 phi1 #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) phi2))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 (neg.f64 phi1) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (neg.f64 phi2))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (neg.f64 phi1) (/.f64 #s(literal 2 binary64) phi2)) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) phi2)))
(/.f64 (-.f64 (*.f64 (neg.f64 phi1) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) phi2)) #s(literal -4 binary64))
(/.f64 (-.f64 #s(literal -2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) phi1) (neg.f64 phi2))) (*.f64 (/.f64 #s(literal 2 binary64) phi1) #s(literal -2 binary64)))
(/.f64 (-.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2)) (*.f64 (/.f64 #s(literal 2 binary64) phi1) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)))
(/.f64 (-.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) phi1) phi2)) (*.f64 (/.f64 #s(literal 2 binary64) phi1) #s(literal 2 binary64)))
(/.f64 (-.f64 (*.f64 phi1 #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (neg.f64 phi2))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 phi1 (/.f64 #s(literal 2 binary64) phi2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) phi2)))
(/.f64 (-.f64 (neg.f64 phi1) (neg.f64 phi2)) #s(literal -2 binary64))
(/.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (+.f64 phi2 phi1))
(/.f64 (*.f64 (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))
(/.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)))) (fma.f64 phi1 #s(literal 1/2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 phi1 phi1) phi1) #s(literal 1/8 binary64)) (*.f64 (*.f64 (*.f64 phi2 phi2) phi2) #s(literal 1/8 binary64))) (fma.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (*.f64 phi1 #s(literal 1/2 binary64)) (fma.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 phi2 phi1) (-.f64 phi1 phi2))) (neg.f64 (*.f64 #s(literal 2 binary64) (+.f64 phi2 phi1))))
(/.f64 (neg.f64 (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2))) (neg.f64 (*.f64 #s(literal 2 binary64) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))))
(/.f64 (neg.f64 (neg.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 phi1 #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) phi2)) #s(literal 4 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)) #s(literal 1 binary64))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))
(/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (*.f64 #s(literal 2 binary64) (+.f64 phi2 phi1)))
(/.f64 (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)) (*.f64 #s(literal 2 binary64) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))))
(/.f64 (neg.f64 (-.f64 phi1 phi2)) #s(literal -2 binary64))
(/.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) (-.f64 phi1 phi2)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(neg.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64)))
(fma.f64 phi1 #s(literal 1/2 binary64) (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(-.f64 (/.f64 (*.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (*.f64 phi1 #s(literal 1/2 binary64))) (fma.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))) (fma.f64 phi1 #s(literal 1/2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))
(-.f64 (/.f64 (*.f64 (*.f64 (*.f64 phi1 phi1) phi1) #s(literal 1/8 binary64)) (fma.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (*.f64 phi1 #s(literal 1/2 binary64)) (fma.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 phi2 phi2) phi2) #s(literal 1/8 binary64)) (fma.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (*.f64 phi1 #s(literal 1/2 binary64)) (fma.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 phi1 #s(literal 2 binary64)) #s(literal 4 binary64)) (/.f64 (*.f64 #s(literal 2 binary64) phi2) #s(literal 4 binary64)))
(-.f64 (/.f64 (*.f64 phi1 phi1) (*.f64 #s(literal 2 binary64) (+.f64 phi2 phi1))) (/.f64 (*.f64 phi2 phi2) (*.f64 #s(literal 2 binary64) (+.f64 phi2 phi1))))
(-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) phi1) (*.f64 #s(literal 2 binary64) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))) (/.f64 (*.f64 (*.f64 phi2 phi2) phi2) (*.f64 #s(literal 2 binary64) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))))
(-.f64 (/.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1)) #s(literal 2 binary64)) (/.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)) #s(literal 2 binary64)))
(-.f64 (/.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) phi1) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))) #s(literal 2 binary64)) (/.f64 (/.f64 (*.f64 (*.f64 phi2 phi2) phi2) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))) #s(literal 2 binary64)))
(-.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (*.f64 phi2 #s(literal 1/2 binary64)))
(-.f64 #s(literal 0 binary64) (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))
(+.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(*.f64 (/.f64 (+.f64 lambda2 lambda1) #s(literal 2 binary64)) (/.f64 (-.f64 lambda1 lambda2) (+.f64 lambda2 lambda1)))
(*.f64 (/.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) #s(literal 2 binary64)) (/.f64 (-.f64 lambda1 lambda2) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))
(*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))
(*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))
(*.f64 (neg.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))
(*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))
(*.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(/.f64 (fma.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) #s(literal 1/8 binary64) (pow.f64 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (*.f64 lambda1 #s(literal 1/2 binary64)) (-.f64 (*.f64 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))))
(/.f64 (neg.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (neg.f64 (+.f64 lambda2 lambda1)))
(/.f64 (neg.f64 (*.f64 (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (neg.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))
(/.f64 (neg.f64 (-.f64 (*.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (*.f64 lambda1 #s(literal 1/2 binary64))) (*.f64 (*.f64 lambda2 #s(literal 1/2 binary64)) (*.f64 lambda2 #s(literal 1/2 binary64))))) (neg.f64 (fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (-.f64 (*.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) #s(literal 1/8 binary64)) (*.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) #s(literal 1/8 binary64)))) (neg.f64 (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (*.f64 lambda1 #s(literal 1/2 binary64)) (fma.f64 (*.f64 lambda2 #s(literal 1/2 binary64)) (*.f64 lambda2 #s(literal 1/2 binary64)) (*.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (*.f64 lambda2 #s(literal 1/2 binary64)))))))
(/.f64 (neg.f64 (neg.f64 (neg.f64 (-.f64 lambda1 lambda2)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (-.f64 (*.f64 lambda1 #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) lambda2))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 (neg.f64 lambda1) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (neg.f64 lambda2))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (neg.f64 lambda1) (/.f64 #s(literal 2 binary64) lambda2)) #s(literal -2 binary64)) (*.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) lambda2)))
(/.f64 (-.f64 (*.f64 (neg.f64 lambda1) #s(literal 2 binary64)) (*.f64 #s(literal -2 binary64) lambda2)) #s(literal -4 binary64))
(/.f64 (-.f64 #s(literal -2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) (neg.f64 lambda2))) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) #s(literal -2 binary64)))
(/.f64 (-.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) lambda2)) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) (/.f64 #s(literal 2 binary64) lambda2)))
(/.f64 (-.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) lambda2)) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) #s(literal 2 binary64)))
(/.f64 (-.f64 (*.f64 lambda1 #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (neg.f64 lambda2))) #s(literal -4 binary64))
(/.f64 (-.f64 (*.f64 lambda1 (/.f64 #s(literal 2 binary64) lambda2)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lambda2)))
(/.f64 (-.f64 (neg.f64 lambda1) (neg.f64 lambda2)) #s(literal -2 binary64))
(/.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 lambda2 lambda1))
(/.f64 (*.f64 (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))
(/.f64 (-.f64 (*.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (*.f64 lambda1 #s(literal 1/2 binary64))) (*.f64 (*.f64 lambda2 #s(literal 1/2 binary64)) (*.f64 lambda2 #s(literal 1/2 binary64)))) (fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal 1/2 binary64))))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) #s(literal 1/8 binary64)) (*.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) #s(literal 1/8 binary64))) (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (*.f64 lambda1 #s(literal 1/2 binary64)) (fma.f64 (*.f64 lambda2 #s(literal 1/2 binary64)) (*.f64 lambda2 #s(literal 1/2 binary64)) (*.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (*.f64 lambda2 #s(literal 1/2 binary64))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 #s(literal 2 binary64) (+.f64 lambda2 lambda1))))
(/.f64 (neg.f64 (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 #s(literal 2 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))))
(/.f64 (-.f64 (*.f64 lambda1 #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) lambda2)) #s(literal 4 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))
(/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (*.f64 #s(literal 2 binary64) (+.f64 lambda2 lambda1)))
(/.f64 (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2)) (*.f64 #s(literal 2 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))
(/.f64 (neg.f64 (-.f64 lambda1 lambda2)) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(neg.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
(fma.f64 lambda1 #s(literal 1/2 binary64) (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(-.f64 (/.f64 (*.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (*.f64 lambda1 #s(literal 1/2 binary64))) (fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal 1/2 binary64)))) (/.f64 (*.f64 (*.f64 lambda2 #s(literal 1/2 binary64)) (*.f64 lambda2 #s(literal 1/2 binary64))) (fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal 1/2 binary64)))))
(-.f64 (/.f64 (*.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) #s(literal 1/8 binary64)) (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (*.f64 lambda1 #s(literal 1/2 binary64)) (fma.f64 (*.f64 lambda2 #s(literal 1/2 binary64)) (*.f64 lambda2 #s(literal 1/2 binary64)) (*.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (*.f64 lambda2 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) #s(literal 1/8 binary64)) (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (*.f64 lambda1 #s(literal 1/2 binary64)) (fma.f64 (*.f64 lambda2 #s(literal 1/2 binary64)) (*.f64 lambda2 #s(literal 1/2 binary64)) (*.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (*.f64 lambda2 #s(literal 1/2 binary64)))))))
(-.f64 (/.f64 (*.f64 lambda1 #s(literal 2 binary64)) #s(literal 4 binary64)) (/.f64 (*.f64 #s(literal 2 binary64) lambda2) #s(literal 4 binary64)))
(-.f64 (/.f64 (*.f64 lambda1 lambda1) (*.f64 #s(literal 2 binary64) (+.f64 lambda2 lambda1))) (/.f64 (*.f64 lambda2 lambda2) (*.f64 #s(literal 2 binary64) (+.f64 lambda2 lambda1))))
(-.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (*.f64 #s(literal 2 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (*.f64 #s(literal 2 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))))
(-.f64 (/.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1)) #s(literal 2 binary64)) (/.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1)) #s(literal 2 binary64)))
(-.f64 (/.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))) #s(literal 2 binary64)) (/.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))) #s(literal 2 binary64)))
(-.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (*.f64 lambda2 #s(literal 1/2 binary64)))
(-.f64 #s(literal 0 binary64) (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))
(+.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(*.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(*.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))))
(*.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))
(*.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 1 binary64))
(pow.f64 (/.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)))) #s(literal -1 binary64))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 1 binary64)) #s(literal 3 binary64))) (fma.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)) (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 1 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 1 binary64))) (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 1 binary64))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)) #s(literal 3 binary64))) (fma.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 1 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 1 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64))) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 1 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64))))))
(/.f64 (+.f64 (pow.f64 (*.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 3 binary64)) (pow.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (*.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (*.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (*.f64 (*.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))))))
(/.f64 (+.f64 (pow.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 3 binary64)) (pow.f64 (*.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (-.f64 (*.f64 (*.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (*.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (*.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (*.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(/.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))))) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64))))) (neg.f64 (fma.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))) (neg.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))))) (neg.f64 (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (neg.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64))))) (neg.f64 (neg.f64 (fma.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))))))
(/.f64 (*.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 18 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 9 binary64))) #s(literal 1 binary64)) (*.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 12 binary64)) (-.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) #s(literal 3 binary64)))) (fma.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))))
(/.f64 (*.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 8 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 4 binary64))) #s(literal 1 binary64)) (*.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (*.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 12 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 6 binary64))) #s(literal 1 binary64)) (*.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))))
(/.f64 (*.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 12 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 6 binary64))) #s(literal 1 binary64)) (*.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 8 binary64)) (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) #s(literal 2 binary64)))) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (-.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (*.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))) (pow.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64)))
(/.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 4 binary64))
(/.f64 (fma.f64 (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))) #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))))) #s(literal 4 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (*.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)))) (fma.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)))) (neg.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)))) (neg.f64 (fma.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64))))))
(/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64))) (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64))) (fma.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)))))
(fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))
(fma.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))
(fma.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 1 binary64)))
(fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))
(fma.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))
(fma.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))
(fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 (/.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))))
(-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (/.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(+.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 1 binary64)))
(+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 1 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)))
(+.f64 (*.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))
(+.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (*.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(*.f64 (*.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))) #s(literal 2 binary64))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(*.f64 (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)))
(*.f64 #s(literal 2 binary64) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R))
(neg.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))
(fma.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))
(+.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))))
(*.f64 (pow.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1 binary64)))
(*.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(pow.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64))
(pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 1/2 binary64))
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64))
(neg.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))))
(fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(exp.f64 (log.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(+.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(*.f64 (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))))
(*.f64 (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 1 binary64))))
(pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 1 binary64)) (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(/.f64 (+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 2 binary64)) (-.f64 (*.f64 (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))))
(/.f64 (+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 2 binary64)) (-.f64 (*.f64 (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)))))))
(/.f64 (+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 2 binary64)) (-.f64 (*.f64 (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))))
(/.f64 (+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 3 binary64)) (pow.f64 (neg.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 2 binary64)) (-.f64 (*.f64 (neg.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (neg.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(/.f64 (+.f64 (pow.f64 (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 3 binary64)) #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 1 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 2 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))) (neg.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64))))) (neg.f64 (neg.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (fma.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 1 binary64)))))
(/.f64 (*.f64 (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 4 binary64))) #s(literal 1 binary64)) (*.f64 (+.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))))
(/.f64 (*.f64 (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 6 binary64))) #s(literal 1 binary64)) (*.f64 (+.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))))
(/.f64 (*.f64 (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 6 binary64))) #s(literal 1 binary64)) (*.f64 (+.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 3 binary64))) (fma.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 1 binary64))))
(/.f64 (*.f64 (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 9 binary64))) #s(literal 1 binary64)) (*.f64 (+.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 6 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 3 binary64)))) (fma.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 1 binary64))))
(/.f64 (-.f64 (*.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))) (*.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (pow.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64)))) (*.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))))
(/.f64 (-.f64 (*.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 1 binary64))) (*.f64 (fma.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 3 binary64)))) (*.f64 (fma.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 1 binary64)) (fma.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 1 binary64))))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))))) (*.f64 (+.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64)))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))) (*.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) (cos.f64 (+.f64 phi2 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))))) (*.f64 (+.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))) #s(literal 2 binary64)))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 2 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64)))) (neg.f64 (-.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64)) (*.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 1 binary64))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 1 binary64)) (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 3 binary64))))))
(/.f64 (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))))
(/.f64 (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))))
(/.f64 (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 3 binary64))) (+.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64)) (*.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))))))
(/.f64 (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 3 binary64))) (fma.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 1 binary64)) (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 3 binary64)))))
(fma.f64 #s(literal -1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 1 binary64))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (neg.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(-.f64 (/.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 2 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (/.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(-.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))))) (/.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))))))
(-.f64 (/.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 3 binary64)) (+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (/.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))
(-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))) (/.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 3 binary64)) (fma.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 1 binary64))))
(-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))))
(*.f64 (pow.f64 #s(literal 1 binary64) #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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))))
(*.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 1/4 binary64)))
(*.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(*.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))))))
(*.f64 (sqrt.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)))) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))) #s(literal 1/2 binary64)))
(*.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))))
(*.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (pow.f64 #s(literal 1 binary64) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))) #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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 1/4 binary64)) #s(literal 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64)) #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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 1/2 binary64))
(/.f64 (neg.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))))) (neg.f64 (sqrt.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (neg.f64 (sqrt.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64))))) (neg.f64 (sqrt.f64 (fma.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))))))
(/.f64 (sqrt.f64 (*.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (sqrt.f64 (*.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64))))) (sqrt.f64 (fma.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))) (sqrt.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))))
(/.f64 (sqrt.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))))) (sqrt.f64 (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (sqrt.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64))))) (sqrt.f64 (neg.f64 (fma.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (sqrt.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)))) (sqrt.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))))
(/.f64 (sqrt.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)))) (sqrt.f64 (fma.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 (fma.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 1/2 binary64)))

eval312.0ms (0.7%)

Memory
-22.5MiB live, 419.6MiB allocated
Compiler

Compiled 87 573 to 4 838 computations (94.5% saved)

prune470.0ms (1%)

Memory
-8.2MiB live, 447.8MiB allocated
Pruning

86 alts after pruning (86 fresh and 0 done)

PrunedKeptTotal
New1 037861 123
Fresh000
Picked101
Done000
Total1 038861 124
Accuracy
69.8%
Counts
1 124 → 86
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶62.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
62.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
62.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
62.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (*.f64 (sqrt.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
64.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
63.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
62.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
62.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64))) (fma.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
67.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
32.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
▶67.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
66.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
▶66.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
66.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))))))))
66.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 2 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
66.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 3 binary64))) (fma.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 1 binary64)))))))
66.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))))))))
66.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 1 binary64)) (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 3 binary64)))))))))
66.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64)))))))))
66.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))) (/.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))))))))
66.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))))))
66.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
66.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))))))
61.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))))))))))
67.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
67.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
54.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2)) (*.f64 (/.f64 #s(literal 2 binary64) phi1) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
66.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
56.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) lambda2)) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
54.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) lambda2)) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) #s(literal 2 binary64)))))))))))
61.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
20.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))))))))
55.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1))))))))))
54.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64)))))))))))
49.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))))))))))
46.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))))))
46.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 lambda1 #s(literal 1/2 binary64)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))))))
39.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (*.f64 #s(literal 2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
15.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
52.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
56.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
52.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
47.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
43.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi1) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
43.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
45.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (*.f64 lambda1 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) lambda1 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))
52.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))))
47.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
49.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (*.f64 (cos.f64 phi1) lambda1) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 phi2))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))
47.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))))
54.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
49.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
66.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))
▶42.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
52.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))
47.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
44.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (*.f64 #s(literal 2 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
61.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
41.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
19.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
55.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
58.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) lambda2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
50.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
47.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
44.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) lambda2) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal -1/8 binary64))) lambda2 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) #s(literal -1/2 binary64))) lambda2 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
49.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
44.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (*.f64 lambda2 #s(literal -1/2 binary64)) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
49.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 lambda1 #s(literal 1/2 binary64)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
62.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
15.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
46.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
▶43.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
51.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
46.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (*.f64 phi2 #s(literal -1/2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
49.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (*.f64 lambda1 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) lambda1 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
44.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 (neg.f64 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (cos.f64 phi2))) (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (*.f64 (*.f64 lambda2 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) lambda2 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
49.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
46.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
47.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (*.f64 (cos.f64 phi1) lambda1) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 phi2))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
46.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
43.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (neg.f64 phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
43.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (neg.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
51.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
47.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
47.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) lambda1)) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
43.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 phi1) lambda2)) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
Compiler

Compiled 13 916 to 6 448 computations (53.7% saved)

simplify240.0ms (0.5%)

Memory
15.4MiB live, 133.6MiB allocated
Algorithm
1×egg-herbie
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
cost-diff128
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
cost-diff384
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
cost-diff384
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
cost-diff768
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
cost-diff384
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
cost-diff384
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
cost-diff768
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
cost-diff6464
(fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
cost-diff128
(+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
cost-diff384
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
cost-diff384
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
cost-diff768
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
cost-diff128
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
cost-diff192
(-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
cost-diff640
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
cost-diff640
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
cost-diff128
(+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
cost-diff384
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
cost-diff384
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
cost-diff768
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
Rules
14 100×lower-fma.f32
14 096×lower-fma.f64
4 834×lower-*.f32
4 764×lower-*.f64
2 210×lower-+.f32
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
01132676
02032620
13262566
26002356
314482356
441542344
570092344
080162283
Stop Event
1×iter limit
1×node limit
1×iter limit
Calls
Call 1
Inputs
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
R
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(*.f64 phi1 #s(literal 1/2 binary64))
phi1
#s(literal 1/2 binary64)
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 phi2 #s(literal 1/2 binary64))
phi2
(*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos.f64 phi1)
(cos.f64 phi2)
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
#s(literal 1 binary64)
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(-.f64 phi1 phi2)
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
#s(literal 1/2 binary64)
(*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
#s(literal 2 binary64)
(*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(cos.f64 phi2)
phi2
(cos.f64 phi1)
phi1
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))
(-.f64 phi1 phi2)
(sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))
(*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(*.f64 R #s(literal 2 binary64))
R
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
R
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))
#s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))
(*.f64 phi1 #s(literal 1/2 binary64))
phi1
#s(literal 1/2 binary64)
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos.f64 phi1)
(cos.f64 phi2)
phi2
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
#s(literal 1 binary64)
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(-.f64 phi1 phi2)
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
R
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(-.f64 phi1 phi2)
phi1
phi2
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos.f64 phi1)
(cos.f64 phi2)
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))
(fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2)
(sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(*.f64 phi1 #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
(cos.f64 (*.f64 phi1 #s(literal -1/2 binary64)))
(*.f64 phi1 #s(literal -1/2 binary64))
#s(literal -1/2 binary64)
(-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64))
(*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))
(pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
R
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(-.f64 phi1 phi2)
phi1
phi2
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos.f64 phi1)
(cos.f64 phi2)
(-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))
(*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))
(*.f64 lambda1 #s(literal 1/2 binary64))
lambda1
#s(literal 1/2 binary64)
(cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))
(*.f64 lambda2 #s(literal 1/2 binary64))
lambda2
(*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))
(sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(-.f64 lambda1 lambda2)
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
#s(literal 1 binary64)
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
Outputs
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
R
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
(atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))
(-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(*.f64 phi1 #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) phi1)
phi1
#s(literal 1/2 binary64)
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 phi2 #s(literal 1/2 binary64))
phi2
(*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(cos.f64 phi1)
(cos.f64 phi2)
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
#s(literal 1 binary64)
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))
(-.f64 phi1 phi2)
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) #s(literal 1/2 binary64)))))
(atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(atan2.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) #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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))
(sqrt.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi2 phi1))))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))
(*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi2 phi1)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
(*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(cos.f64 (-.f64 lambda2 lambda1))
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(-.f64 lambda1 lambda2)
#s(literal 2 binary64)
(*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(cos.f64 phi2)
phi2
(cos.f64 phi1)
phi1
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))
(cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(cos.f64 (-.f64 phi2 phi1))
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(-.f64 phi1 phi2)
(*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))
(*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))
(-.f64 phi1 phi2)
(sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) #s(literal 1/2 binary64)))
(-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))
(fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(*.f64 R #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) R)
R
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 #s(literal 2 binary64) R))
R
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
(atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))
(+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))
(pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))
(sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))
(sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))
#s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))
#s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))
(*.f64 phi1 #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) phi1)
phi1
#s(literal 1/2 binary64)
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(cos.f64 phi1)
(cos.f64 phi2)
phi2
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
#s(literal 1 binary64)
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))
(-.f64 phi1 phi2)
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (fma.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) (*.f64 #s(literal 2 binary64) R))
R
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (fma.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) #s(literal 2 binary64))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))
(atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (fma.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))
(-.f64 phi1 phi2)
phi1
phi2
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(cos.f64 phi1)
(cos.f64 phi2)
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))
(sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (fma.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (fma.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(fma.f64 (fma.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2)
(*.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(*.f64 phi1 #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) phi1)
#s(literal 1/2 binary64)
(cos.f64 (*.f64 phi1 #s(literal -1/2 binary64)))
(cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))
(*.f64 phi1 #s(literal -1/2 binary64))
(*.f64 #s(literal -1/2 binary64) phi1)
#s(literal -1/2 binary64)
(-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(fma.f64 (neg.f64 (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))
(pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64))
(pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64))
(*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))
(pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))) (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 #s(literal 2 binary64) R))
R
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))) (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
(atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))) (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(sqrt.f64 (fma.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))) (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(fma.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))) (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))
(-.f64 phi1 phi2)
phi1
phi2
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))) (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))))
(*.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(cos.f64 phi1)
(cos.f64 phi2)
(-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))
(fma.f64 (neg.f64 (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(*.f64 (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))
(*.f64 lambda1 #s(literal 1/2 binary64))
lambda1
#s(literal 1/2 binary64)
(cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))
(*.f64 lambda2 #s(literal 1/2 binary64))
lambda2
(*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(*.f64 (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))
(sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(-.f64 lambda1 lambda2)
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
#s(literal 1 binary64)
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))

localize1.1s (2.4%)

Memory
-14.2MiB live, 932.6MiB allocated
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
accuracy0.650329111447397
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
accuracy0.7202062309240814
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
accuracy12.087259885353925
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
accuracy14.320260536403843
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
accuracy12.087259885353925
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
accuracy14.320260536403843
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
accuracy14.320260536403843
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
accuracy30.233722898027455
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))
accuracy12.087259885353925
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
accuracy12.087259885353925
(sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))
accuracy14.320260536403843
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
accuracy33.69704323805402
#s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))
accuracy11.682314986708235
(cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
accuracy11.739558023880523
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))
accuracy12.708443331799739
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
accuracy14.43134466485357
(cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
accuracy0.650329111447397
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
accuracy0.7202062309240814
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
accuracy12.087259885353925
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
accuracy14.320260536403843
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
Samples
858.0ms246×1valid
29.0ms2×0valid
28.0ms8×2valid
Compiler

Compiled 2 501 to 92 computations (96.3% saved)

Precisions
Click to see histograms. Total time spent on operations: 766.0ms
ival-cos: 275.0ms (35.9% of total)
ival-mult: 172.0ms (22.4% of total)
ival-sin: 152.0ms (19.8% of total)
adjust: 42.0ms (5.5% of total)
ival-sub: 28.0ms (3.7% of total)
ival-sqrt: 25.0ms (3.3% of total)
ival-add: 23.0ms (3% of total)
ival-atan2: 23.0ms (3% of total)
ival-pow2: 19.0ms (2.5% of total)
ival-div: 6.0ms (0.8% of total)
exact: 1.0ms (0.1% of total)
ival-true: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)

series258.0ms (0.6%)

Memory
7.9MiB live, 203.1MiB allocated
Counts
23 → 792
Calls
Call 1
Inputs
#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())
#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())
#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())
#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())
#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())
#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())
#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())
#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())
#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())
#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())
#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())
#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())
#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())
#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())
#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())
#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())
#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())
#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())
#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())
#s(alt (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())
#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())
#s(alt (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #<representation binary64>) () ())
#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())
Outputs
#s(alt (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (taylor 0 lambda1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)))) (taylor 0 lambda1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)))) (taylor 0 lambda1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)))) (taylor 0 lambda1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 lambda2) (taylor 0 lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* -1 lambda2) (taylor 0 lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (- lambda1 lambda2) (taylor 0 lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (- lambda1 lambda2) (taylor 0 lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (- lambda1 lambda2) (taylor 0 lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2))))))) (taylor 0 lambda1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2))))))) (taylor 0 lambda1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda1 (- (* -1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2))))))) (taylor 0 lambda1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda1 (- (* lambda1 (- (* 1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2))))))) (taylor 0 lambda1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (neg lambda2)))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (* lambda1 (sin (neg lambda2))))) (* 1/2 (cos (neg lambda2)))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* lambda1 (- (* 1/4 (* lambda1 (cos (neg lambda2)))) (* -1/2 (sin (neg lambda2)))))) (* 1/2 (cos (neg lambda2)))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* lambda1 (- (* lambda1 (- (* -1/12 (* lambda1 (sin (neg lambda2)))) (* -1/4 (cos (neg lambda2))))) (* -1/2 (sin (neg lambda2)))))) (* 1/2 (cos (neg lambda2)))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2))) (taylor 0 lambda1) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* -1 (* lambda1 (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2))) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2))) (taylor 0 lambda1) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2))) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2))) (taylor 0 lambda1) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2))) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2))) (taylor 0 lambda1) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* 1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* 1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (+ (* -1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (+ (* 1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* 1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* 1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 lambda2)) (taylor 0 lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2))))) (taylor 0 lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2)))))) (taylor 0 lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))) (taylor 0 lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (taylor 0 lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (taylor 0 lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))))) (taylor 0 lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (cos (neg lambda2)) (taylor 0 lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) (taylor 0 lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (taylor 0 lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))))) (taylor 0 lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 lambda2)) (taylor 0 lambda1) (#s(alt (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2))))) (taylor 0 lambda1) (#s(alt (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2)))))) (taylor 0 lambda1) (#s(alt (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))) (taylor 0 lambda1) (#s(alt (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor 0 lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* 1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* 1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))) 2))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))))) (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (taylor 0 lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))))) (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* 1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* 1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))) 2))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (+ (* -1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (+ (* 1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))) (- (* (cos phi1) (* (cos phi2) (+ (* 1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* 1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))) 2))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))))) (taylor 0 lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor inf lambda1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor inf lambda1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor inf lambda1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor inf lambda1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 lambda1) (taylor inf lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor inf lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf lambda1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf lambda1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf lambda1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf lambda1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor inf lambda1) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor inf lambda1) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor inf lambda1) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor inf lambda1) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda1) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda1) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda1) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda1) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (taylor -inf lambda1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (taylor -inf lambda1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (taylor -inf lambda1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (taylor -inf lambda1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 lambda1) (taylor -inf lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2))) (taylor -inf lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2))) (taylor -inf lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2))) (taylor -inf lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor -inf lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (/ lambda2 lambda1) 1))) (taylor -inf lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (/ lambda2 lambda1) 1))) (taylor -inf lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (/ lambda2 lambda1) 1))) (taylor -inf lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (taylor -inf lambda1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (taylor -inf lambda1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (taylor -inf lambda1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (taylor -inf lambda1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (taylor -inf lambda1) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (taylor -inf lambda1) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (taylor -inf lambda1) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (taylor -inf lambda1) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (cos (* -1 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (* -1 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (* -1 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (* -1 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (taylor 0 lambda2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)))) (taylor 0 lambda2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)))) (taylor 0 lambda2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)))) (taylor 0 lambda2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 lambda1) (taylor 0 lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor 0 lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (* -1 lambda2)) (taylor 0 lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (* -1 lambda2)) (taylor 0 lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (* -1 lambda2)) (taylor 0 lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))))) (taylor 0 lambda2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))))) (taylor 0 lambda2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda2 (- (* -1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))))) (taylor 0 lambda2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda2 (- (* lambda2 (- (* -1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))))) (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))))) (taylor 0 lambda2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos lambda1))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* -1/2 (* lambda2 (sin lambda1)))) (* 1/2 (cos lambda1))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* lambda2 (- (* 1/4 (* lambda2 (cos lambda1))) (* 1/2 (sin lambda1))))) (* 1/2 (cos lambda1))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* lambda2 (- (* lambda2 (- (* 1/12 (* lambda2 (sin lambda1))) (* -1/4 (cos lambda1)))) (* 1/2 (sin lambda1))))) (* 1/2 (cos lambda1))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2))) (taylor 0 lambda2) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* lambda2 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2))) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2))) (taylor 0 lambda2) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))) (* -1 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2))) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2))) (taylor 0 lambda2) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))) (* -1 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2))) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2))) (taylor 0 lambda2) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 lambda1)) (taylor 0 lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1))))) (taylor 0 lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1))))))) (taylor 0 lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1))))))))) (taylor 0 lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (taylor 0 lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (taylor 0 lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))))) (taylor 0 lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (cos lambda1) (taylor 0 lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos lambda1) (* lambda2 (sin lambda1))) (taylor 0 lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (taylor 0 lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1))))) (taylor 0 lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 lambda1)) (taylor 0 lambda2) (#s(alt (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1))))) (taylor 0 lambda2) (#s(alt (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1))))))) (taylor 0 lambda2) (#s(alt (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1))))))))) (taylor 0 lambda2) (#s(alt (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (taylor 0 lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (taylor 0 lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))))) (taylor 0 lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor inf lambda2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor inf lambda2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor inf lambda2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor inf lambda2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 lambda2) (taylor inf lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2)) (taylor inf lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2)) (taylor inf lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2)) (taylor inf lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* -1 lambda2) (taylor inf lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (/ lambda1 lambda2) 1)) (taylor inf lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (/ lambda1 lambda2) 1)) (taylor inf lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (/ lambda1 lambda2) 1)) (taylor inf lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf lambda2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf lambda2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf lambda2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf lambda2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor inf lambda2) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor inf lambda2) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor inf lambda2) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor inf lambda2) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda2) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda2) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda2) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda2) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (taylor -inf lambda2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (taylor -inf lambda2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (taylor -inf lambda2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (taylor -inf lambda2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 lambda2) (taylor -inf lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* -1 lambda2) (taylor -inf lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (taylor -inf lambda2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (taylor -inf lambda2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (taylor -inf lambda2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (taylor -inf lambda2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (taylor -inf lambda2) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (taylor -inf lambda2) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (taylor -inf lambda2) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (taylor -inf lambda2) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (cos (+ lambda1 (* -1 lambda2))) (taylor -inf lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (+ lambda1 (* -1 lambda2))) (taylor -inf lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (+ lambda1 (* -1 lambda2))) (taylor -inf lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (+ lambda1 (* -1 lambda2))) (taylor -inf lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (patch (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))))) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 1/24 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))))) (taylor 0 phi2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 phi1) (taylor 0 phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt phi1 (taylor 0 phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ phi1 (* -1 phi2)) (taylor 0 phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ phi1 (* -1 phi2)) (taylor 0 phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ phi1 (* -1 phi2)) (taylor 0 phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos phi1))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* phi2 (sin phi1))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (- (* -1/4 (cos phi1)) (* -1/2 (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (- (+ (* -1/4 (cos phi1)) (* -1/12 (* phi2 (sin phi1)))) (* -1/2 (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor 0 phi2) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor 0 phi2) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor 0 phi2) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor 0 phi2) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 phi1)) (taylor 0 phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1))))) (taylor 0 phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1))))))) (taylor 0 phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) (taylor 0 phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* phi2 (- (* -1 (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* phi2 (- (* phi2 (- (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (taylor 0 phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))))) (taylor 0 phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 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))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))))))) (taylor 0 phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos phi1))) (taylor 0 phi2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* -1/2 (* phi2 (sin phi1)))) (* 1/2 (cos phi1))) (taylor 0 phi2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* phi2 (- (* 1/4 (* phi2 (cos phi1))) (* 1/2 (sin phi1))))) (* 1/2 (cos phi1))) (taylor 0 phi2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* phi2 (- (* phi2 (- (* 1/12 (* phi2 (sin phi1))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1))))) (* 1/2 (cos phi1))) (taylor 0 phi2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (cos phi1) (taylor 0 phi2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos phi1) (* phi2 (sin phi1))) (taylor 0 phi2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos phi1) (* phi2 (- (* -1/2 (* phi2 (cos phi1))) (* -1 (sin phi1))))) (taylor 0 phi2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos phi1) (* phi2 (- (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))) (* -1 (sin phi1))))) (taylor 0 phi2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 phi1) (taylor 0 phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 phi1)) (taylor 0 phi2) (#s(alt (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1))))) (taylor 0 phi2) (#s(alt (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1))))))) (taylor 0 phi2) (#s(alt (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) (taylor 0 phi2) (#s(alt (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* phi2 (- (* -1 (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* phi2 (- (* phi2 (- (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))))))) (taylor 0 phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))))))))) (taylor 0 phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 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))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))))))))))) (taylor 0 phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor inf phi2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor inf phi2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor inf phi2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor inf phi2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 phi2) (taylor inf phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2)) (taylor inf phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2)) (taylor inf phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2)) (taylor inf phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor inf phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (/ phi1 phi2) 1)) (taylor inf phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (/ phi1 phi2) 1)) (taylor inf phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (/ phi1 phi2) 1)) (taylor inf phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf phi2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf phi2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf phi2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf phi2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (taylor inf phi2) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (+ (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1))) (/ (pow (cos (* -1/2 phi1)) 2) phi2)) (/ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi2))) (taylor inf phi2) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (+ (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1))) (/ (pow (cos (* -1/2 phi1)) 2) phi2)) (/ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi2))) (taylor inf phi2) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (+ (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1))) (/ (pow (cos (* -1/2 phi1)) 2) phi2)) (/ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi2))) (taylor inf phi2) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- phi1 phi2)))) (taylor inf phi2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- phi1 phi2)))) (taylor inf phi2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- phi1 phi2)))) (taylor inf phi2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- phi1 phi2)))) (taylor inf phi2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (cos (- phi1 phi2)) (taylor inf phi2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- phi1 phi2)) (taylor inf phi2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- phi1 phi2)) (taylor inf phi2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- phi1 phi2)) (taylor inf phi2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 phi2) (taylor inf phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2)) (taylor inf phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2)) (taylor inf phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2)) (taylor inf phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi2) (#s(alt (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi2) (#s(alt (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi2) (#s(alt (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi2) (#s(alt (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi2) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi2) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi2) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi2) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor -inf phi2) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 phi2) (taylor -inf phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor -inf phi2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor -inf phi2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor -inf phi2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor -inf phi2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (taylor -inf phi2) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ (* -1 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (* -1 (/ (- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) phi2))))) (taylor -inf phi2) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ (* -1 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (* -1 (/ (- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) phi2))))) (taylor -inf phi2) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ (* -1 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (* -1 (/ (- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) phi2))))) (taylor -inf phi2) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (taylor -inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (taylor -inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (taylor -inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (taylor -inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (taylor -inf phi2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (taylor -inf phi2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (taylor -inf phi2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (taylor -inf phi2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (cos (+ phi1 (* -1 phi2))) (taylor -inf phi2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (cos (+ phi1 (* -1 phi2))) (taylor -inf phi2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (cos (+ phi1 (* -1 phi2))) (taylor -inf phi2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (cos (+ phi1 (* -1 phi2))) (taylor -inf phi2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 phi2) (taylor -inf phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (taylor -inf phi2) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (taylor -inf phi2) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (taylor -inf phi2) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (taylor -inf phi2) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (taylor -inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (taylor -inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (taylor -inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (taylor -inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))))) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 1/24 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))))) (taylor 0 phi1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 phi2) (taylor 0 phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor 0 phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (- phi1 phi2) (taylor 0 phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (- phi1 phi2) (taylor 0 phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (- phi1 phi2) (taylor 0 phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (neg phi2)))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* -1/2 (* phi1 (sin (neg phi2)))) (* 1/2 (cos (neg phi2))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (- (* -1/4 (cos (neg phi2))) (* -1/2 (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (- (+ (* -1/4 (cos (neg phi2))) (* 1/12 (* phi1 (sin (neg phi2))))) (* -1/2 (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (taylor 0 phi1) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* 1/2 (* phi1 phi2))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (taylor 0 phi1) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* phi1 (+ (* -1 (* phi1 (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (* 1/2 phi2)))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (taylor 0 phi1) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* phi1 (+ (* 1/2 phi2) (* phi1 (- (* -1/12 (* phi1 phi2)) (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (taylor 0 phi1) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 phi2)) (taylor 0 phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2))))) (taylor 0 phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) (taylor 0 phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2))))))))) (taylor 0 phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* -1 (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))) (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* -1/2 (* (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (taylor 0 phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))))) (taylor 0 phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 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))))) (* -1/2 (/ (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))))))) (taylor 0 phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (neg phi2)))) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (* phi1 (sin (neg phi2))))) (* 1/2 (cos (neg phi2)))) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* phi1 (- (* 1/4 (* phi1 (cos (neg phi2)))) (* -1/2 (sin (neg phi2)))))) (* 1/2 (cos (neg phi2)))) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* phi1 (- (* phi1 (- (* -1/12 (* phi1 (sin (neg phi2)))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2)))))) (* 1/2 (cos (neg phi2)))) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (cos (neg phi2)) (taylor 0 phi1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg phi2)) (* -1 (* phi1 (sin (neg phi2))))) (taylor 0 phi1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg phi2)) (* phi1 (- (* -1/2 (* phi1 (cos (neg phi2)))) (sin (neg phi2))))) (taylor 0 phi1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg phi2)) (* phi1 (- (* phi1 (+ (* -1/2 (cos (neg phi2))) (* 1/6 (* phi1 (sin (neg phi2)))))) (sin (neg phi2))))) (taylor 0 phi1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 phi2) (taylor 0 phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 phi2)) (taylor 0 phi1) (#s(alt (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2))))) (taylor 0 phi1) (#s(alt (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) (taylor 0 phi1) (#s(alt (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2))))))))) (taylor 0 phi1) (#s(alt (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* -1 (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))) (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))))))) (taylor 0 phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))))))))) (taylor 0 phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))))))))))) (taylor 0 phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor inf phi1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor inf phi1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor inf phi1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor inf phi1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 phi1) (taylor inf phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt phi1 (taylor inf phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (* -1 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (* -1 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (* -1 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf phi1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf phi1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf phi1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf phi1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor inf phi1) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor inf phi1) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor inf phi1) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor inf phi1) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- phi1 phi2)))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- phi1 phi2)))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- phi1 phi2)))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- phi1 phi2)))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (cos (- phi1 phi2)) (taylor inf phi1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- phi1 phi2)) (taylor inf phi1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- phi1 phi2)) (taylor inf phi1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- phi1 phi2)) (taylor inf phi1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 phi1) (taylor inf phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi1) (#s(alt (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi1) (#s(alt (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi1) (#s(alt (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi1) (#s(alt (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi1) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi1) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi1) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi1) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor -inf phi1) (#s(alt (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (patch (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 phi1) (taylor -inf phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2))) (taylor -inf phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2))) (taylor -inf phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2))) (taylor -inf phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt phi1 (taylor -inf phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (/ phi2 phi1) 1))) (taylor -inf phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (/ phi2 phi1) 1))) (taylor -inf phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (/ phi2 phi1) 1))) (taylor -inf phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor -inf phi1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor -inf phi1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor -inf phi1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor -inf phi1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor -inf phi1) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor -inf phi1) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor -inf phi1) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (taylor -inf phi1) (#s(alt (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) (patch (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (cos (* -1 (+ phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (cos (* -1 (+ phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (cos (* -1 (+ phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (cos (* -1 (+ phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 phi1) (taylor -inf phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2))) (taylor -inf phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2))) (taylor -inf phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2))) (taylor -inf phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) (patch (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (taylor -inf phi1) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (taylor -inf phi1) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (taylor -inf phi1) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (taylor -inf phi1) (#s(alt #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (patch #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (taylor -inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (taylor -inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (taylor -inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (taylor -inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
Calls

12 calls:

TimeVariablePointExpression
31.0ms
phi1
@inf
((* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (/ (- lambda1 lambda2) 2) (/ (- phi1 phi2) 2) (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* 2 (* 1/2 (- lambda1 lambda2))) (* 2 (* 1/2 (- phi1 phi2))) (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (* (* (sin (* phi1 1/2)) phi2) (cos (* phi1 -1/2))) (- (pow (cos (* phi1 -1/2)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1)))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (sin (/ (- lambda1 lambda2) 2)))) (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- phi1 phi2) 2)) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (cos (* 2 (* 1/2 (- phi1 phi2)))) (/ (- phi1 phi2) 2) (sin (/ (- phi1 phi2) 2)) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sin (* (- lambda1 lambda2) 1/2)) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (sin (/ (- lambda1 lambda2) 2))))))
23.0ms
phi2
@-inf
((* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (/ (- lambda1 lambda2) 2) (/ (- phi1 phi2) 2) (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* 2 (* 1/2 (- lambda1 lambda2))) (* 2 (* 1/2 (- phi1 phi2))) (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (* (* (sin (* phi1 1/2)) phi2) (cos (* phi1 -1/2))) (- (pow (cos (* phi1 -1/2)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1)))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (sin (/ (- lambda1 lambda2) 2)))) (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- phi1 phi2) 2)) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (cos (* 2 (* 1/2 (- phi1 phi2)))) (/ (- phi1 phi2) 2) (sin (/ (- phi1 phi2) 2)) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sin (* (- lambda1 lambda2) 1/2)) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (sin (/ (- lambda1 lambda2) 2))))))
23.0ms
phi2
@inf
((* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (/ (- lambda1 lambda2) 2) (/ (- phi1 phi2) 2) (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* 2 (* 1/2 (- lambda1 lambda2))) (* 2 (* 1/2 (- phi1 phi2))) (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (* (* (sin (* phi1 1/2)) phi2) (cos (* phi1 -1/2))) (- (pow (cos (* phi1 -1/2)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1)))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (sin (/ (- lambda1 lambda2) 2)))) (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- phi1 phi2) 2)) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (cos (* 2 (* 1/2 (- phi1 phi2)))) (/ (- phi1 phi2) 2) (sin (/ (- phi1 phi2) 2)) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sin (* (- lambda1 lambda2) 1/2)) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (sin (/ (- lambda1 lambda2) 2))))))
18.0ms
lambda1
@-inf
((* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (/ (- lambda1 lambda2) 2) (/ (- phi1 phi2) 2) (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* 2 (* 1/2 (- lambda1 lambda2))) (* 2 (* 1/2 (- phi1 phi2))) (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (* (* (sin (* phi1 1/2)) phi2) (cos (* phi1 -1/2))) (- (pow (cos (* phi1 -1/2)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1)))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (sin (/ (- lambda1 lambda2) 2)))) (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- phi1 phi2) 2)) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (cos (* 2 (* 1/2 (- phi1 phi2)))) (/ (- phi1 phi2) 2) (sin (/ (- phi1 phi2) 2)) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sin (* (- lambda1 lambda2) 1/2)) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (sin (/ (- lambda1 lambda2) 2))))))
15.0ms
lambda1
@0
((* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (/ (- lambda1 lambda2) 2) (/ (- phi1 phi2) 2) (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* 2 (* 1/2 (- lambda1 lambda2))) (* 2 (* 1/2 (- phi1 phi2))) (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (* (* (sin (* phi1 1/2)) phi2) (cos (* phi1 -1/2))) (- (pow (cos (* phi1 -1/2)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1)))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (sin (/ (- lambda1 lambda2) 2)))) (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- phi1 phi2) 2)) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (cos (* 2 (* 1/2 (- phi1 phi2)))) (/ (- phi1 phi2) 2) (sin (/ (- phi1 phi2) 2)) (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sin (* (- lambda1 lambda2) 1/2)) (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (sin (/ (- lambda1 lambda2) 2))))))

simplify315.0ms (0.7%)

Memory
-2.0MiB live, 273.2MiB allocated
Algorithm
1×egg-herbie
Rules
7 340×lower-fma.f64
7 340×lower-fma.f32
7 330×lower-*.f64
7 330×lower-*.f32
5 674×lower-+.f64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0121124071
1403323254
0811322313
Stop Event
1×iter limit
1×node limit
Counts
792 → 786
Calls
Call 1
Inputs
(* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))))
(* -1/2 lambda2)
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(* -1 lambda2)
(- lambda1 lambda2)
(- lambda1 lambda2)
(- lambda1 lambda2)
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2)))))))
(- (+ 1/2 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2)))))))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda1 (- (* -1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2)))))))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda1 (- (* lambda1 (- (* 1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2)))))))
(- 1/2 (* 1/2 (cos (neg lambda2))))
(- (+ 1/2 (* 1/2 (* lambda1 (sin (neg lambda2))))) (* 1/2 (cos (neg lambda2))))
(- (+ 1/2 (* lambda1 (- (* 1/4 (* lambda1 (cos (neg lambda2)))) (* -1/2 (sin (neg lambda2)))))) (* 1/2 (cos (neg lambda2))))
(- (+ 1/2 (* lambda1 (- (* lambda1 (- (* -1/12 (* lambda1 (sin (neg lambda2)))) (* -1/4 (cos (neg lambda2))))) (* -1/2 (sin (neg lambda2)))))) (* 1/2 (cos (neg lambda2))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)))
(- (+ (* -1 (* lambda1 (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2))) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)))
(- (+ (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2))) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)))
(- (+ (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2))) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)))
(+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* 1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* 1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (+ (* -1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (+ (* 1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* 1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* 1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* -1/2 lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(cos (neg lambda2))
(+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))
(+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))
(+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* -1/2 lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(sqrt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (sqrt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+ (sqrt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* 1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* 1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))) 2))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))))) (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+ (sqrt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))))) (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* 1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* 1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))) 2))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (+ (* -1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (+ (* 1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))) (- (* (cos phi1) (* (cos phi2) (+ (* 1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* 1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))) 2))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(* 1/2 lambda1)
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
lambda1
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(* 1/2 lambda1)
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
lambda1
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))))
(* 1/2 lambda1)
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
lambda1
(+ lambda1 (* -1 lambda2))
(+ lambda1 (* -1 lambda2))
(+ lambda1 (* -1 lambda2))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda2 (- (* -1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda2 (- (* lambda2 (- (* -1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))))) (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))
(- 1/2 (* 1/2 (cos lambda1)))
(- (+ 1/2 (* -1/2 (* lambda2 (sin lambda1)))) (* 1/2 (cos lambda1)))
(- (+ 1/2 (* lambda2 (- (* 1/4 (* lambda2 (cos lambda1))) (* 1/2 (sin lambda1))))) (* 1/2 (cos lambda1)))
(- (+ 1/2 (* lambda2 (- (* lambda2 (- (* 1/12 (* lambda2 (sin lambda1))) (* -1/4 (cos lambda1)))) (* 1/2 (sin lambda1))))) (* 1/2 (cos lambda1)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)))
(- (+ (* lambda2 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2))) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)))
(- (+ (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))) (* -1 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2))) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)))
(- (+ (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))) (* -1 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2))) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* 1/2 lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(cos lambda1)
(+ (cos lambda1) (* lambda2 (sin lambda1)))
(+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))
(+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* 1/2 lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(* -1/2 lambda2)
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(* -1 lambda2)
(* lambda2 (- (/ lambda1 lambda2) 1))
(* lambda2 (- (/ lambda1 lambda2) 1))
(* lambda2 (- (/ lambda1 lambda2) 1))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(* -1/2 lambda2)
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(* -1 lambda2)
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))))))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))))
(+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 1/24 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))))))
(* 1/2 phi1)
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
phi1
(+ phi1 (* -1 phi2))
(+ phi1 (* -1 phi2))
(+ phi1 (* -1 phi2))
(- (+ 1/2 (* 1/2 (cos phi1))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(- (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* phi2 (sin phi1))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(- (+ 1/2 (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (- (* -1/4 (cos phi1)) (* -1/2 (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(- (+ 1/2 (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (- (+ (* -1/4 (cos phi1)) (* -1/12 (* phi2 (sin phi1)))) (* -1/2 (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))
(sin (* 1/2 phi1))
(+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1)))))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))))))
(- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(- (+ 1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(- (+ 1 (* phi2 (- (* -1 (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(- (+ 1 (* phi2 (- (* phi2 (- (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 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))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))
(- 1/2 (* 1/2 (cos phi1)))
(- (+ 1/2 (* -1/2 (* phi2 (sin phi1)))) (* 1/2 (cos phi1)))
(- (+ 1/2 (* phi2 (- (* 1/4 (* phi2 (cos phi1))) (* 1/2 (sin phi1))))) (* 1/2 (cos phi1)))
(- (+ 1/2 (* phi2 (- (* phi2 (- (* 1/12 (* phi2 (sin phi1))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1))))) (* 1/2 (cos phi1)))
(cos phi1)
(+ (cos phi1) (* phi2 (sin phi1)))
(+ (cos phi1) (* phi2 (- (* -1/2 (* phi2 (cos phi1))) (* -1 (sin phi1)))))
(+ (cos phi1) (* phi2 (- (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))) (* -1 (sin phi1)))))
(* 1/2 phi1)
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(sin (* 1/2 phi1))
(+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1)))))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))))))
(- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(- (+ 1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(- (+ 1 (* phi2 (- (* -1 (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(- (+ 1 (* phi2 (- (* phi2 (- (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))
(+ (sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 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))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))))))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(* -1/2 phi2)
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(* -1 phi2)
(* phi2 (- (/ phi1 phi2) 1))
(* phi2 (- (/ phi1 phi2) 1))
(* phi2 (- (/ phi1 phi2) 1))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1))))
(* phi2 (- (+ (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1))) (/ (pow (cos (* -1/2 phi1)) 2) phi2)) (/ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi2)))
(* phi2 (- (+ (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1))) (/ (pow (cos (* -1/2 phi1)) 2) phi2)) (/ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi2)))
(* phi2 (- (+ (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1))) (/ (pow (cos (* -1/2 phi1)) 2) phi2)) (/ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi2)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(* -1/2 phi2)
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(* -1/2 phi2)
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(* -1 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1))))
(* -1 (* phi2 (+ (* -1 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (* -1 (/ (- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) phi2)))))
(* -1 (* phi2 (+ (* -1 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (* -1 (/ (- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) phi2)))))
(* -1 (* phi2 (+ (* -1 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (* -1 (/ (- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) phi2)))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(cos (+ phi1 (* -1 phi2)))
(cos (+ phi1 (* -1 phi2)))
(cos (+ phi1 (* -1 phi2)))
(cos (+ phi1 (* -1 phi2)))
(* -1/2 phi2)
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 1/24 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))))))
(* -1/2 phi2)
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(* -1 phi2)
(- phi1 phi2)
(- phi1 phi2)
(- phi1 phi2)
(- (+ 1/2 (* 1/2 (cos (neg phi2)))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(- (+ 1/2 (+ (* -1/2 (* phi1 (sin (neg phi2)))) (* 1/2 (cos (neg phi2))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(- (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (- (* -1/4 (cos (neg phi2))) (* -1/2 (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(- (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (- (+ (* -1/4 (cos (neg phi2))) (* 1/12 (* phi1 (sin (neg phi2))))) (* -1/2 (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(- 1 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(- (+ 1 (* 1/2 (* phi1 phi2))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(- (+ 1 (* phi1 (+ (* -1 (* phi1 (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (* 1/2 phi2)))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(- (+ 1 (* phi1 (+ (* 1/2 phi2) (* phi1 (- (* -1/12 (* phi1 phi2)) (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))
(sin (* -1/2 phi2))
(+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2))))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))
(- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(- (+ 1 (* -1 (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(- (+ 1 (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(- (+ 1 (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))) (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* -1/2 (* (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 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))))) (* -1/2 (/ (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))))))
(- 1/2 (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (* 1/2 (* phi1 (sin (neg phi2))))) (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (* phi1 (- (* 1/4 (* phi1 (cos (neg phi2)))) (* -1/2 (sin (neg phi2)))))) (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (* phi1 (- (* phi1 (- (* -1/12 (* phi1 (sin (neg phi2)))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2)))))) (* 1/2 (cos (neg phi2))))
(cos (neg phi2))
(+ (cos (neg phi2)) (* -1 (* phi1 (sin (neg phi2)))))
(+ (cos (neg phi2)) (* phi1 (- (* -1/2 (* phi1 (cos (neg phi2)))) (sin (neg phi2)))))
(+ (cos (neg phi2)) (* phi1 (- (* phi1 (+ (* -1/2 (cos (neg phi2))) (* 1/6 (* phi1 (sin (neg phi2)))))) (sin (neg phi2)))))
(* -1/2 phi2)
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(sin (* -1/2 phi2))
(+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2))))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))
(- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(- (+ 1 (* -1 (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(- (+ 1 (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(- (+ 1 (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))) (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(sqrt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))
(+ (sqrt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))))
(+ (sqrt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))))))
(+ (sqrt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))))))))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(* 1/2 phi1)
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (- phi1 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))))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(* 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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
phi1
(* -1 (* phi1 (- (/ phi2 phi1) 1)))
(* -1 (* phi1 (- (/ phi2 phi1) 1)))
(* -1 (* phi1 (- (/ phi2 phi1) 1)))
(- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos (* -1 (+ phi2 (* -1 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)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
Outputs
(* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))))
(fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))))
(fma.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) lambda1 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64)) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) lambda1 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) lambda1 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(* -1/2 lambda2)
(*.f64 lambda2 #s(literal -1/2 binary64))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(fma.f64 #s(literal 1/2 binary64) lambda1 (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(fma.f64 #s(literal 1/2 binary64) lambda1 (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(fma.f64 #s(literal 1/2 binary64) lambda1 (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(fma.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) lambda1 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64)) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) lambda1 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) lambda1 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(* -1 lambda2)
(neg.f64 lambda2)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))
(- (+ 1/2 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2)))))))
(-.f64 (+.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda1 (- (* -1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2)))))))
(-.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) lambda1) (*.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)))) lambda1)) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda1 (- (* lambda1 (- (* 1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2)))))))
(-.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/12 binary64) lambda1) (*.f64 (*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (*.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal -1/4 binary64))) lambda1 (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)))) lambda1)) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))
(- 1/2 (* 1/2 (cos (neg lambda2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64)))
(- (+ 1/2 (* 1/2 (* lambda1 (sin (neg lambda2))))) (* 1/2 (cos (neg lambda2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (neg.f64 (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))))
(- (+ 1/2 (* lambda1 (- (* 1/4 (* lambda1 (cos (neg lambda2)))) (* -1/2 (sin (neg lambda2)))))) (* 1/2 (cos (neg lambda2))))
(+.f64 #s(literal 1/2 binary64) (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda2) #s(literal -1/2 binary64))) lambda1 (*.f64 (cos.f64 lambda2) #s(literal -1/2 binary64))))
(- (+ 1/2 (* lambda1 (- (* lambda1 (- (* -1/12 (* lambda1 (sin (neg lambda2)))) (* -1/4 (cos (neg lambda2))))) (* -1/2 (sin (neg lambda2)))))) (* 1/2 (cos (neg lambda2))))
(+.f64 #s(literal 1/2 binary64) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/12 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) #s(literal 1/4 binary64))) lambda1 (*.f64 (sin.f64 lambda2) #s(literal -1/2 binary64))) lambda1 (*.f64 (cos.f64 lambda2) #s(literal -1/2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) lambda1 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64)) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) lambda1 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) lambda1 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)))
(fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ (* -1 (* lambda1 (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2))) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)))
(fma.f64 (neg.f64 (*.f64 lambda1 (cos.f64 phi1))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))
(- (+ (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2))) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)))
(fma.f64 (neg.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) lambda1 (fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))
(- (+ (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2))) (* (cos phi1) (pow (sin (* -1/2 lambda2)) 2)))
(fma.f64 (fma.f64 (neg.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64)) (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (cos.f64 phi1)))) lambda1 (*.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) lambda1 (fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))
(+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (neg.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (cos.f64 phi1) (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* 1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* 1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (neg.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (cos.f64 phi1) (fma.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 #s(literal 1/4 binary64) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))) lambda1 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (+ (* -1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (+ (* 1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* 1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* 1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (neg.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (cos.f64 phi1) (fma.f64 (fma.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/12 binary64) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 1/12 binary64))) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 #s(literal 1/4 binary64) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))) lambda1 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))) lambda1 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sin (* -1/2 lambda2))
(sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) lambda1 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) lambda1 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) lambda1 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 (fma.f64 (neg.f64 (*.f64 lambda1 (cos.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 1 binary64)) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 (fma.f64 (neg.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))) lambda1 #s(literal 1 binary64)) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 (fma.f64 (fma.f64 (neg.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64)) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) lambda1 (*.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) lambda1 #s(literal 1 binary64)) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))) (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) #s(literal -1/4 binary64))) lambda1 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))) lambda1 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))) (+.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) #s(literal -1/4 binary64))) (*.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) #s(literal -1/4 binary64))))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) #s(literal -1/2 binary64))) lambda1)))) lambda1 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))))) lambda1 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))
(cos (neg lambda2))
(cos.f64 lambda2)
(+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))
(fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))
(+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 lambda2) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))
(+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) #s(literal -1/2 binary64))) lambda1 (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 (fma.f64 (neg.f64 (*.f64 lambda1 (cos.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 1 binary64)) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 (fma.f64 (neg.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))) lambda1 #s(literal 1 binary64)) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 (fma.f64 (fma.f64 (neg.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64)) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) lambda1 (*.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) lambda1 #s(literal 1 binary64)) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sin (* -1/2 lambda2))
(sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) lambda1 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) lambda1 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) lambda1 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))
(sqrt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (sqrt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (cos.f64 phi2)))) #s(literal 1/2 binary64) (sqrt.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* 1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* 1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))) 2))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))))) (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 #s(literal 1/4 binary64) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) (*.f64 (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1/4 binary64))) lambda1 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))) lambda1 (sqrt.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))))) (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* 1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* 1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))) 2))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (+ (* -1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (+ (* 1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))) (- (* (cos phi1) (* (cos phi2) (+ (* 1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* 1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))) 2))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 #s(literal 1/4 binary64) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) (*.f64 (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1/4 binary64))) (*.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/12 binary64) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 1/12 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (/.f64 (*.f64 (*.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (cos.f64 phi2)) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 #s(literal 1/4 binary64) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) (*.f64 (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) #s(literal 2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1/4 binary64)))) (fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #s(literal -1/2 binary64))) lambda1)))) lambda1 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) lambda1 (sqrt.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* 1/2 lambda1)
(*.f64 #s(literal 1/2 binary64) lambda1)
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
lambda1
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(* 1/2 lambda1)
(*.f64 #s(literal 1/2 binary64) lambda1)
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 lambda1))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
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))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2)))
(fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))))
(fma.f64 (neg.f64 (*.f64 lambda2 (cos.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))))
(fma.f64 (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (cos.f64 phi2)) (*.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) lambda2 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1/6 binary64)) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) lambda2 (*.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) lambda2 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))
(* 1/2 lambda1)
(*.f64 #s(literal 1/2 binary64) lambda1)
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(fma.f64 #s(literal 1/2 binary64) lambda1 (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(fma.f64 #s(literal 1/2 binary64) lambda1 (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(fma.f64 #s(literal 1/2 binary64) lambda1 (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(fma.f64 (neg.f64 (*.f64 lambda2 (cos.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(fma.f64 (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (cos.f64 phi2)) (*.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) lambda2 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1/6 binary64)) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) lambda2 (*.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) lambda2 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
lambda1
(+ lambda1 (* -1 lambda2))
(-.f64 lambda1 lambda2)
(+ lambda1 (* -1 lambda2))
(-.f64 lambda1 lambda2)
(+ lambda1 (* -1 lambda2))
(-.f64 lambda1 lambda2)
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))
(-.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda2 (- (* -1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))
(-.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) lambda2) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (*.f64 (*.f64 (*.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 1/2 binary64))) lambda2)) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda2 (- (* lambda2 (- (* -1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))))) (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))
(-.f64 (+.f64 (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/12 binary64) lambda2) (*.f64 (*.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) #s(literal -1/4 binary64))) lambda2 (*.f64 (*.f64 (*.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 1/2 binary64))) lambda2 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))
(- 1/2 (* 1/2 (cos lambda1)))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))
(- (+ 1/2 (* -1/2 (* lambda2 (sin lambda1)))) (* 1/2 (cos lambda1)))
(-.f64 (fma.f64 (*.f64 (sin.f64 lambda1) lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))
(- (+ 1/2 (* lambda2 (- (* 1/4 (* lambda2 (cos lambda1))) (* 1/2 (sin lambda1))))) (* 1/2 (cos lambda1)))
(+.f64 #s(literal 1/2 binary64) (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) #s(literal -1/2 binary64))) lambda2 (*.f64 (cos.f64 lambda1) #s(literal -1/2 binary64))))
(- (+ 1/2 (* lambda2 (- (* lambda2 (- (* 1/12 (* lambda2 (sin lambda1))) (* -1/4 (cos lambda1)))) (* 1/2 (sin lambda1))))) (* 1/2 (cos lambda1)))
(+.f64 #s(literal 1/2 binary64) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/12 binary64) lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda1) #s(literal 1/4 binary64))) lambda2 (*.f64 (sin.f64 lambda1) #s(literal -1/2 binary64))) lambda2 (*.f64 (cos.f64 lambda1) #s(literal -1/2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (neg.f64 (*.f64 lambda2 (cos.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (cos.f64 phi2)) (*.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) lambda2 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1/6 binary64)) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) lambda2 (*.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) lambda2 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)))
(fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ (* lambda2 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2))) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)))
(fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi1)))))
(- (+ (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))) (* -1 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2))) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)))
(fma.f64 (fma.f64 (neg.f64 (*.f64 lambda2 (cos.f64 phi1))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) lambda2 (fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi1)))))
(- (+ (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))) (* -1 (* (cos phi1) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2))) (* (cos phi1) (pow (sin (* 1/2 lambda1)) 2)))
(fma.f64 (fma.f64 (neg.f64 (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1/6 binary64)) (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (cos.f64 phi1)))) lambda2 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))) lambda2 (fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi1)))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (neg.f64 (*.f64 lambda2 (cos.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (cos.f64 phi2)) (*.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) lambda2 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1/6 binary64)) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) lambda2 (*.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) lambda2 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sin (* 1/2 lambda1))
(sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(fma.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal -1/2 binary64))) lambda2 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal -1/8 binary64))) lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal -1/2 binary64))) lambda2 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1 binary64)) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 (fma.f64 (fma.f64 (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) lambda2 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) lambda2 #s(literal 1 binary64)) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 (fma.f64 (fma.f64 (neg.f64 (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1/6 binary64)) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))))) lambda2 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) lambda2 #s(literal 1 binary64)) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) #s(literal -1/4 binary64))) lambda2) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))) lambda2 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))) (+.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) #s(literal -1/4 binary64))) (*.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1/6 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) #s(literal -1/4 binary64))))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) lambda2)))) lambda2 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))))) lambda2 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))
(cos lambda1)
(cos.f64 lambda1)
(+ (cos lambda1) (* lambda2 (sin lambda1)))
(fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))
(+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))
(fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))
(+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))
(fma.f64 (fma.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 (sin.f64 lambda1) lambda2) (*.f64 (cos.f64 lambda1) #s(literal -1/2 binary64))) lambda2 (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1 binary64)) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 (fma.f64 (fma.f64 (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) lambda2 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) lambda2 #s(literal 1 binary64)) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 (fma.f64 (fma.f64 (neg.f64 (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1/6 binary64)) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))))) lambda2 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) lambda2 #s(literal 1 binary64)) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sin (* 1/2 lambda1))
(sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(fma.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal -1/2 binary64))) lambda2 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) lambda2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal -1/8 binary64))) lambda2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal -1/2 binary64))) lambda2 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) #s(literal -1/2 binary64) (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #s(literal -1/4 binary64))) lambda2) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))) lambda2 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))))))))))
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #s(literal -1/4 binary64))) (*.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1/6 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #s(literal -1/4 binary64))))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) lambda2)))) lambda2 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) lambda2 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* -1/2 lambda2)
(*.f64 lambda2 #s(literal -1/2 binary64))
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) lambda2)
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) lambda2)
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) lambda2)
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(* -1 lambda2)
(neg.f64 lambda2)
(* lambda2 (- (/ lambda1 lambda2) 1))
(*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)
(* lambda2 (- (/ lambda1 lambda2) 1))
(*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)
(* lambda2 (- (/ lambda1 lambda2) 1))
(*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda1 lambda2))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* -1/2 lambda2)
(*.f64 lambda2 #s(literal -1/2 binary64))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 lambda2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(* -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))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2)))
(fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))
(+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 phi2 phi2) #s(literal 1 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))))
(fma.f64 (*.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)) (fma.f64 #s(literal 1/24 binary64) (*.f64 phi2 phi2) #s(literal -1/2 binary64))) (*.f64 phi2 phi2) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 1/24 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))))))
(fma.f64 (fma.f64 (*.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)) (fma.f64 #s(literal -1/720 binary64) (*.f64 phi2 phi2) #s(literal 1/24 binary64))) (*.f64 phi2 phi2) (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 phi2 phi2) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal -1/2 binary64) phi2))
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal -1/2 binary64) phi2))
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal -1/2 binary64) phi2))
(+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))
(fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (neg.f64 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi2 (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) phi2 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (fma.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal 1/4 binary64))))) phi2 (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) phi2 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
phi1
(+ phi1 (* -1 phi2))
(-.f64 phi1 phi2)
(+ phi1 (* -1 phi2))
(-.f64 phi1 phi2)
(+ phi1 (* -1 phi2))
(-.f64 phi1 phi2)
(- (+ 1/2 (* 1/2 (cos phi1))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(- (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* phi2 (sin phi1))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(-.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1)) #s(literal 1/2 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi1)))
(- (+ 1/2 (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (- (* -1/4 (cos phi1)) (* -1/2 (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(-.f64 (fma.f64 (+.f64 (cos.f64 phi1) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi1)) #s(literal 1/2 binary64))) phi2 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64))) phi2)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi1)))
(- (+ 1/2 (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (- (+ (* -1/4 (cos phi1)) (* -1/12 (* phi2 (sin phi1)))) (* -1/2 (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(-.f64 (fma.f64 (+.f64 (cos.f64 phi1) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (fma.f64 (*.f64 #s(literal -1/12 binary64) phi2) (sin.f64 phi1) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi1)) #s(literal 1/2 binary64)))) phi2 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64))) phi2)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi1)))
(+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))
(fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (neg.f64 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi2 (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) phi2 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (fma.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal 1/4 binary64))))) phi2 (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) phi2 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))
(fma.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (neg.f64 phi2) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (fma.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi2 (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) phi2 (fma.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (fma.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal 1/4 binary64))))) phi2 (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) phi2 (fma.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(sin (* 1/2 phi1))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))
(fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1)))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/2 binary64))) phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/8 binary64))) phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/2 binary64))) phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(- (+ 1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(-.f64 (fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(- (+ 1 (* phi2 (- (* -1 (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(-.f64 (fma.f64 (fma.f64 (neg.f64 phi2) (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) phi2 #s(literal 1 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(- (+ 1 (* phi2 (- (* phi2 (- (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(-.f64 (fma.f64 (fma.f64 (neg.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) phi2 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))))) phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) phi2 #s(literal 1 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))
(fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 1/4 binary64))) phi2) (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) phi2 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 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))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (+.f64 (-.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 1/4 binary64))) (*.f64 (fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 1/4 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) phi2)))) phi2 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) phi2 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
(- 1/2 (* 1/2 (cos phi1)))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))
(- (+ 1/2 (* -1/2 (* phi2 (sin phi1)))) (* 1/2 (cos phi1)))
(-.f64 (fma.f64 (*.f64 (sin.f64 phi1) phi2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))
(- (+ 1/2 (* phi2 (- (* 1/4 (* phi2 (cos phi1))) (* 1/2 (sin phi1))))) (* 1/2 (cos phi1)))
(+.f64 #s(literal 1/2 binary64) (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) #s(literal -1/2 binary64))) phi2 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))
(- (+ 1/2 (* phi2 (- (* phi2 (- (* 1/12 (* phi2 (sin phi1))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1))))) (* 1/2 (cos phi1)))
(+.f64 #s(literal 1/2 binary64) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/12 binary64) phi2) (sin.f64 phi1) (*.f64 #s(literal 1/4 binary64) (cos.f64 phi1))) phi2 (*.f64 (sin.f64 phi1) #s(literal -1/2 binary64))) phi2 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))
(cos phi1)
(cos.f64 phi1)
(+ (cos phi1) (* phi2 (sin phi1)))
(fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1))
(+ (cos phi1) (* phi2 (- (* -1/2 (* phi2 (cos phi1))) (* -1 (sin phi1)))))
(fma.f64 (fma.f64 (*.f64 phi2 (cos.f64 phi1)) #s(literal -1/2 binary64) (sin.f64 phi1)) phi2 (cos.f64 phi1))
(+ (cos phi1) (* phi2 (- (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))) (* -1 (sin phi1)))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (sin.f64 phi1) phi2) #s(literal -1/6 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) phi2 (sin.f64 phi1)) phi2 (cos.f64 phi1))
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal -1/2 binary64) phi2))
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal -1/2 binary64) phi2))
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal -1/2 binary64) phi2))
(sin (* 1/2 phi1))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))
(fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1)))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/2 binary64))) phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/8 binary64))) phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal -1/2 binary64))) phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(- (+ 1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(-.f64 (fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(- (+ 1 (* phi2 (- (* -1 (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(-.f64 (fma.f64 (fma.f64 (neg.f64 phi2) (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) phi2 #s(literal 1 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(- (+ 1 (* phi2 (- (* phi2 (- (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(-.f64 (fma.f64 (fma.f64 (neg.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64)) phi2 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))))) phi2 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) phi2 #s(literal 1 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))
(fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))))
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 1/4 binary64))) phi2) (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) phi2 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 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))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))))))))))
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (+.f64 (-.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 1/4 binary64))) (*.f64 (fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/6 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (fma.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 1/4 binary64)))) (fma.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) phi2)))) phi2 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) phi2 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* -1/2 phi2)
(*.f64 #s(literal -1/2 binary64) phi2)
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2)
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2)
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2)
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(* -1 phi2)
(neg.f64 phi2)
(* phi2 (- (/ phi1 phi2) 1))
(*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2)
(* phi2 (- (/ phi1 phi2) 1))
(*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2)
(* phi2 (- (/ phi1 phi2) 1))
(*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2)
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1))))
(*.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* phi2 (- (+ (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1))) (/ (pow (cos (* -1/2 phi1)) 2) phi2)) (/ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi2)))
(*.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))) phi2)) phi2)
(* phi2 (- (+ (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1))) (/ (pow (cos (* -1/2 phi1)) 2) phi2)) (/ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi2)))
(*.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))) phi2)) phi2)
(* phi2 (- (+ (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1))) (/ (pow (cos (* -1/2 phi1)) 2) phi2)) (/ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) phi2)))
(*.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))) phi2)) phi2)
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(* -1/2 phi2)
(*.f64 #s(literal -1/2 binary64) phi2)
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2)
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2)
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2)
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* -1/2 phi2)
(*.f64 #s(literal -1/2 binary64) phi2)
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(*.f64 (neg.f64 phi2) (fma.f64 (/.f64 phi1 phi2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(*.f64 (neg.f64 phi2) (fma.f64 (/.f64 phi1 phi2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(*.f64 (neg.f64 phi2) (fma.f64 (/.f64 phi1 phi2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(* -1 phi2)
(neg.f64 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(*.f64 (neg.f64 phi2) (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(*.f64 (neg.f64 phi2) (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(*.f64 (neg.f64 phi2) (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
(- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1))))
(*.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(* -1 (* phi2 (+ (* -1 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (* -1 (/ (- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) phi2)))))
(*.f64 (neg.f64 phi2) (neg.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))) phi2))))
(* -1 (* phi2 (+ (* -1 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (* -1 (/ (- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) phi2)))))
(*.f64 (neg.f64 phi2) (neg.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))) phi2))))
(* -1 (* phi2 (+ (* -1 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (* -1 (/ (- (pow (cos (* -1/2 phi1)) 2) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) phi2)))))
(*.f64 (neg.f64 phi2) (neg.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))) phi2))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(cos (+ phi1 (* -1 phi2)))
(cos.f64 (-.f64 phi1 phi2))
(cos (+ phi1 (* -1 phi2)))
(cos.f64 (-.f64 phi1 phi2))
(cos (+ phi1 (* -1 phi2)))
(cos.f64 (-.f64 phi1 phi2))
(cos (+ phi1 (* -1 phi2)))
(cos.f64 (-.f64 phi1 phi2))
(* -1/2 phi2)
(*.f64 #s(literal -1/2 binary64) phi2)
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(*.f64 (neg.f64 phi2) (fma.f64 (/.f64 phi1 phi2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(*.f64 (neg.f64 phi2) (fma.f64 (/.f64 phi1 phi2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(*.f64 (neg.f64 phi2) (fma.f64 (/.f64 phi1 phi2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))
(+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(*.f64 (fma.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi1) #s(literal 1 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))))
(fma.f64 (*.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (fma.f64 #s(literal 1/24 binary64) (*.f64 phi1 phi1) #s(literal -1/2 binary64))) (*.f64 phi1 phi1) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))) (* 1/24 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))))))
(fma.f64 (fma.f64 (*.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (fma.f64 #s(literal -1/720 binary64) (*.f64 phi1 phi1) #s(literal 1/24 binary64))) (*.f64 phi1 phi1) (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 phi1 phi1) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))
(* -1/2 phi2)
(*.f64 #s(literal -1/2 binary64) phi2)
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal -1/2 binary64) phi2))
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal -1/2 binary64) phi2))
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal -1/2 binary64) phi2))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))
(fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(fma.f64 (*.f64 phi1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi1 (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) phi1 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64)) phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64))))) phi1 (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) phi1 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
(* -1 phi2)
(neg.f64 phi2)
(- phi1 phi2)
(-.f64 phi1 phi2)
(- phi1 phi2)
(-.f64 phi1 phi2)
(- phi1 phi2)
(-.f64 phi1 phi2)
(- (+ 1/2 (* 1/2 (cos (neg phi2)))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(- (+ 1/2 (+ (* -1/2 (* phi1 (sin (neg phi2)))) (* 1/2 (cos (neg phi2))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(-.f64 (fma.f64 (+.f64 (cos.f64 phi2) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(- (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (- (* -1/4 (cos (neg phi2))) (* -1/2 (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(-.f64 (fma.f64 (+.f64 (cos.f64 phi2) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi2) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)) #s(literal 1/2 binary64))) phi1 (neg.f64 (*.f64 (sin.f64 phi2) #s(literal -1/2 binary64)))) phi1)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(- (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (- (+ (* -1/4 (cos (neg phi2))) (* 1/12 (* phi1 (sin (neg phi2))))) (* -1/2 (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(-.f64 (fma.f64 (+.f64 (cos.f64 phi2) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi2) (fma.f64 (*.f64 #s(literal 1/12 binary64) phi1) (neg.f64 (sin.f64 phi2)) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)) #s(literal 1/2 binary64)))) phi1 (neg.f64 (*.f64 (sin.f64 phi2) #s(literal -1/2 binary64)))) phi1)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))
(fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi1 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) phi1 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (fma.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal -1/6 binary64)) phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64))))) phi1 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) phi1 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(- 1 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(- (+ 1 (* 1/2 (* phi1 phi2))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(-.f64 (fma.f64 (*.f64 phi2 phi1) #s(literal 1/2 binary64) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(- (+ 1 (* phi1 (+ (* -1 (* phi1 (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2))))) (* 1/2 phi2)))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(-.f64 (fma.f64 (fma.f64 (neg.f64 phi1) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/2 binary64) #s(literal 1/4 binary64)) (*.f64 #s(literal 1/2 binary64) phi2)) phi1 #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(- (+ 1 (* phi1 (+ (* 1/2 phi2) (* phi1 (- (* -1/12 (* phi1 phi2)) (+ 1/4 (* -1/2 (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))))))) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))
(-.f64 (fma.f64 (fma.f64 (-.f64 (fma.f64 (*.f64 phi2 phi1) #s(literal -1/12 binary64) #s(literal -1/4 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/2 binary64))) phi1 (*.f64 #s(literal 1/2 binary64) phi2)) phi1 #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi1 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) phi1 (fma.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64) (fma.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal -1/6 binary64)) phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64))))) phi1 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) phi1 (fma.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(sin (* -1/2 phi2))
(sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))
(+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) phi1) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/48 binary64) phi1) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal -1/8 binary64))) phi1 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
(- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(- (+ 1 (* -1 (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(-.f64 (fma.f64 (neg.f64 phi1) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 1 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(- (+ 1 (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(-.f64 (fma.f64 (neg.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi1 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))))) phi1 #s(literal 1 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(- (+ 1 (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))) (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(-.f64 (fma.f64 (fma.f64 (neg.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal -1/6 binary64)) phi1 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))))) phi1 (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) phi1 #s(literal 1 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* -1/2 (* (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))
(fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 phi1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))))
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 1/4 binary64))) phi1) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))) phi1 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 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))))) (* -1/2 (/ (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))))))
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (+.f64 (-.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 1/4 binary64))) (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1/6 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (-.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 1/4 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) phi1)))) phi1 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))) phi1 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
(- 1/2 (* 1/2 (cos (neg phi2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))
(- (+ 1/2 (* 1/2 (* phi1 (sin (neg phi2))))) (* 1/2 (cos (neg phi2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (neg.f64 (sin.f64 phi2)) phi1) (cos.f64 phi2))))
(- (+ 1/2 (* phi1 (- (* 1/4 (* phi1 (cos (neg phi2)))) (* -1/2 (sin (neg phi2)))))) (* 1/2 (cos (neg phi2))))
(+.f64 #s(literal 1/2 binary64) (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) phi1) (cos.f64 phi2) (*.f64 (sin.f64 phi2) #s(literal -1/2 binary64))) phi1 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))
(- (+ 1/2 (* phi1 (- (* phi1 (- (* -1/12 (* phi1 (sin (neg phi2)))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2)))))) (* 1/2 (cos (neg phi2))))
(+.f64 #s(literal 1/2 binary64) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/12 binary64) phi1) (neg.f64 (sin.f64 phi2)) (*.f64 #s(literal 1/4 binary64) (cos.f64 phi2))) phi1 (*.f64 (sin.f64 phi2) #s(literal -1/2 binary64))) phi1 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))
(cos (neg phi2))
(cos.f64 phi2)
(+ (cos (neg phi2)) (* -1 (* phi1 (sin (neg phi2)))))
(fma.f64 (sin.f64 phi2) phi1 (cos.f64 phi2))
(+ (cos (neg phi2)) (* phi1 (- (* -1/2 (* phi1 (cos (neg phi2)))) (sin (neg phi2)))))
(fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) phi1) #s(literal -1/2 binary64) (sin.f64 phi2)) phi1 (cos.f64 phi2))
(+ (cos (neg phi2)) (* phi1 (- (* phi1 (+ (* -1/2 (cos (neg phi2))) (* 1/6 (* phi1 (sin (neg phi2)))))) (sin (neg phi2)))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/6 binary64) phi1) (neg.f64 (sin.f64 phi2)) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2))) phi1 (sin.f64 phi2)) phi1 (cos.f64 phi2))
(* -1/2 phi2)
(*.f64 #s(literal -1/2 binary64) phi2)
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal -1/2 binary64) phi2))
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal -1/2 binary64) phi2))
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal -1/2 binary64) phi2))
(sin (* -1/2 phi2))
(sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))
(+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) phi1) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/48 binary64) phi1) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal -1/8 binary64))) phi1 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
(- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(- (+ 1 (* -1 (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(-.f64 (fma.f64 (neg.f64 phi1) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 1 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(- (+ 1 (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(-.f64 (fma.f64 (neg.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi1 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))))) phi1 #s(literal 1 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(- (+ 1 (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))) (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(-.f64 (fma.f64 (fma.f64 (neg.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal -1/6 binary64)) phi1 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))))) phi1 (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) phi1 #s(literal 1 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))) (* 1/2 (* (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))) (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (fma.f64 (-.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 1/4 binary64))) phi1 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))) phi1 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))) (* phi1 (+ (* 1/2 (* (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))))))) (* 1/2 (* (* phi1 (- (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (* 1/2 (/ (* (cos (* -1/2 phi2)) (* (sin (* -1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* -1/2 phi2)) 2) (pow (sin (* -1/2 phi2)) 2)) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))))))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))))))))))
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (+.f64 (-.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 1/4 binary64))) (*.f64 (fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal -1/6 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (-.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (fma.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) #s(literal 1/4 binary64)))) (fma.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))) #s(literal -1/2 binary64))) phi1)))) phi1 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))) phi1 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1)
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1)
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1)
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1)
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1)
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1)
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi1 phi2))
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1)
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1)
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1)
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 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 (/.f64 phi2 phi1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (neg.f64 phi1) (fma.f64 (/.f64 phi2 phi1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (neg.f64 phi1) (fma.f64 (/.f64 phi2 phi1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
phi1
(* -1 (* phi1 (- (/ phi2 phi1) 1)))
(*.f64 (neg.f64 phi1) (-.f64 (/.f64 phi2 phi1) #s(literal 1 binary64)))
(* -1 (* phi1 (- (/ phi2 phi1) 1)))
(*.f64 (neg.f64 phi1) (-.f64 (/.f64 phi2 phi1) #s(literal 1 binary64)))
(* -1 (* phi1 (- (/ phi2 phi1) 1)))
(*.f64 (neg.f64 phi1) (-.f64 (/.f64 phi2 phi1) #s(literal 1 binary64)))
(- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(- (+ (* phi2 (* (cos (* -1/2 phi1)) (sin (* 1/2 phi1)))) (pow (cos (* -1/2 phi1)) 2)) (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)))
(fma.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos.f64 (-.f64 phi2 phi1))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos.f64 (-.f64 phi2 phi1))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos.f64 (-.f64 phi2 phi1))
(cos (* -1 (+ phi2 (* -1 phi1))))
(cos.f64 (-.f64 phi2 phi1))
(* 1/2 phi1)
(*.f64 #s(literal 1/2 binary64) phi1)
(* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (neg.f64 phi1) (fma.f64 (/.f64 phi2 phi1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (neg.f64 phi1) (fma.f64 (/.f64 phi2 phi1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (neg.f64 phi1) (fma.f64 (/.f64 phi2 phi1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))))

rewrite515.0ms (1.1%)

Memory
29.2MiB live, 434.0MiB allocated
Rules
3 776×lower-*.f32
3 730×lower-*.f64
3 292×lower-fma.f32
3 290×lower-fma.f64
3 032×lower-/.f32
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
090468
0157414
1509338
23718338
08860311
Stop Event
1×iter limit
1×node limit
1×iter limit
Counts
23 → 998
Calls
Call 1
Inputs
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
(+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))
(cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
#s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))
(sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
Outputs
(*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)))
(*.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1))
(*.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2))
(*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(*.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)))
(*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
(*.f64 (cos.f64 phi2) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)))
(*.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(*.f64 (cos.f64 phi1) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)))
(/.f64 (neg.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (neg.f64 (*.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (neg.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(/.f64 (neg.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))))) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (neg.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))))) (neg.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(/.f64 (neg.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))))) (neg.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (neg.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))))) (neg.f64 (*.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (neg.f64 (*.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) #s(literal 2 binary64))))
(/.f64 (neg.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))))) (neg.f64 (*.f64 #s(literal 2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))))) (neg.f64 (*.f64 #s(literal 2 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))))
(/.f64 (neg.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))))) (neg.f64 (*.f64 #s(literal 2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))))) (neg.f64 (*.f64 #s(literal 2 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))))
(/.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(/.f64 (*.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2)))) #s(literal 2 binary64))
(/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(/.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))
(/.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2)))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64)))
(/.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64)))
(/.f64 (*.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2)))) (*.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) #s(literal 2 binary64)))
(/.f64 (*.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) (*.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) #s(literal 2 binary64)))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)))) (*.f64 #s(literal 2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (*.f64 #s(literal 2 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)))) (*.f64 #s(literal 2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (*.f64 #s(literal 2 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))
(*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))
(*.f64 (neg.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))
(*.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))
(*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(/.f64 (neg.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (neg.f64 (+.f64 lambda2 lambda1)))
(/.f64 (neg.f64 (*.f64 (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (neg.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))
(/.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)))) (neg.f64 (+.f64 lambda2 lambda1)))
(/.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2)))) (neg.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))
(/.f64 (neg.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (*.f64 #s(literal 1/2 binary64) lambda2)))) (neg.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))
(/.f64 (neg.f64 (-.f64 (*.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) #s(literal 1/8 binary64)) (*.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) #s(literal 1/8 binary64)))) (neg.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 #s(literal 1/2 binary64) lambda1) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (*.f64 #s(literal 1/2 binary64) lambda2) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 #s(literal 1/2 binary64) lambda2))))))
(/.f64 (neg.f64 (neg.f64 (neg.f64 (-.f64 lambda1 lambda2)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (-.f64 (*.f64 lambda1 #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) lambda2))) #s(literal -4 binary64))
(/.f64 (-.f64 (neg.f64 lambda1) (neg.f64 lambda2)) #s(literal -2 binary64))
(/.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 lambda2 lambda1))
(/.f64 (*.f64 (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))
(/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) (+.f64 lambda2 lambda1))
(/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))
(/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) #s(literal 1/8 binary64)) (*.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) #s(literal 1/8 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 #s(literal 1/2 binary64) lambda1) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (*.f64 #s(literal 1/2 binary64) lambda2) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 #s(literal 1/2 binary64) lambda2)))))
(/.f64 (neg.f64 (neg.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 #s(literal 2 binary64) (+.f64 lambda2 lambda1))))
(/.f64 (neg.f64 (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) (neg.f64 (*.f64 #s(literal 2 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))))
(/.f64 (-.f64 (*.f64 lambda1 #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) lambda2)) #s(literal 4 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))
(/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (*.f64 #s(literal 2 binary64) (+.f64 lambda2 lambda1)))
(/.f64 (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2)) (*.f64 #s(literal 2 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))
(/.f64 (neg.f64 (-.f64 lambda1 lambda2)) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(neg.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
(fma.f64 #s(literal 1/2 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))
(fma.f64 #s(literal 1/2 binary64) lambda1 (*.f64 #s(literal -1/2 binary64) lambda2))
(fma.f64 #s(literal 1/2 binary64) lambda1 (*.f64 (neg.f64 lambda2) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) lambda1 (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) lambda2))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 (neg.f64 lambda2) #s(literal 1/2 binary64)))
(fma.f64 lambda1 #s(literal 1/2 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))
(-.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 #s(literal 1/2 binary64) lambda2))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))
(+.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))
(+.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 #s(literal -1/2 binary64) lambda2))
(+.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (neg.f64 lambda2) #s(literal 1/2 binary64)))
(+.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))
(*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))
(*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))))
(*.f64 (neg.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64))
(*.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)) #s(literal -1 binary64)))
(*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))
(*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)) #s(literal 1 binary64)) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)) #s(literal -1 binary64))
(/.f64 (neg.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (neg.f64 (+.f64 phi2 phi1)))
(/.f64 (neg.f64 (*.f64 (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (neg.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))))
(/.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (neg.f64 (+.f64 phi2 phi1)))
(/.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)))) (neg.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))))
(/.f64 (neg.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) phi2)))) (neg.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(/.f64 (neg.f64 (-.f64 (*.f64 (*.f64 (*.f64 phi1 phi1) phi1) #s(literal 1/8 binary64)) (*.f64 (*.f64 (*.f64 phi2 phi2) phi2) #s(literal 1/8 binary64)))) (neg.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 #s(literal 1/2 binary64) phi1) (fma.f64 (*.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) phi2) (*.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 #s(literal 1/2 binary64) phi2))))))
(/.f64 (neg.f64 (neg.f64 (neg.f64 (-.f64 phi1 phi2)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (-.f64 (*.f64 phi1 #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) phi2))) #s(literal -4 binary64))
(/.f64 (-.f64 (neg.f64 phi1) (neg.f64 phi2)) #s(literal -2 binary64))
(/.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (+.f64 phi2 phi1))
(/.f64 (*.f64 (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))
(/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))) (+.f64 phi2 phi1))
(/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2))) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))
(/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 phi1 phi1) phi1) #s(literal 1/8 binary64)) (*.f64 (*.f64 (*.f64 phi2 phi2) phi2) #s(literal 1/8 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 #s(literal 1/2 binary64) phi1) (fma.f64 (*.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) phi2) (*.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 #s(literal 1/2 binary64) phi2)))))
(/.f64 (neg.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))) (neg.f64 (*.f64 #s(literal 2 binary64) (+.f64 phi2 phi1))))
(/.f64 (neg.f64 (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2))) (neg.f64 (*.f64 #s(literal 2 binary64) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))))
(/.f64 (neg.f64 (neg.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 phi1 #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) phi2)) #s(literal 4 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)) #s(literal 1 binary64))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))
(/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (*.f64 #s(literal 2 binary64) (+.f64 phi2 phi1)))
(/.f64 (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)) (*.f64 #s(literal 2 binary64) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))))
(/.f64 (neg.f64 (-.f64 phi1 phi2)) #s(literal -2 binary64))
(/.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) (-.f64 phi1 phi2)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(neg.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64)))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (neg.f64 phi2)))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal -1/2 binary64) phi2))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 (neg.f64 phi2) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) phi1 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(fma.f64 phi1 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (neg.f64 phi2)))
(fma.f64 phi1 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) phi2))
(fma.f64 phi1 #s(literal 1/2 binary64) (*.f64 (neg.f64 phi2) #s(literal 1/2 binary64)))
(fma.f64 phi1 #s(literal 1/2 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(-.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 #s(literal 1/2 binary64) phi2))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))
(+.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 #s(literal 1/2 binary64) (neg.f64 phi2)))
(+.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 #s(literal -1/2 binary64) phi2))
(+.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 (neg.f64 phi2) #s(literal 1/2 binary64)))
(+.f64 (*.f64 #s(literal 1/2 binary64) phi1) (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(*.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(*.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))))
(*.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))
(pow.f64 (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(/.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))))) (neg.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))))) (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))) (neg.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))))) (neg.f64 (neg.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (neg.f64 (neg.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))))))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (*.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))))))
(/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))))
(fma.f64 (pow.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)))) #s(literal 1 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64))) #s(literal 1 binary64)) (pow.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(fma.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal 2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1 binary64) (*.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 phi2) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 phi1) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (/.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(+.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (*.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)))
(+.f64 (*.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(+.f64 (*.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (*.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))
(+.f64 (*.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))
(*.f64 (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))
(*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))
(*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))
(pow.f64 (/.f64 (+.f64 lambda2 lambda1) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))
(/.f64 (neg.f64 (*.f64 (neg.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)))) (neg.f64 (+.f64 lambda2 lambda1)))
(/.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2)))) (neg.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))
(/.f64 (neg.f64 (*.f64 #s(literal 2 binary64) (neg.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -2 binary64))
(/.f64 (neg.f64 (neg.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)))) (neg.f64 (neg.f64 (+.f64 lambda2 lambda1))))
(/.f64 (neg.f64 (neg.f64 (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2)))) (neg.f64 (neg.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))))
(/.f64 (*.f64 (neg.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) (+.f64 lambda2 lambda1))
(/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))
(/.f64 (*.f64 #s(literal 2 binary64) (neg.f64 (-.f64 lambda1 lambda2))) #s(literal -2 binary64))
(/.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) (neg.f64 (-.f64 lambda1 (neg.f64 lambda2))))
(/.f64 (neg.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) (neg.f64 (+.f64 lambda2 lambda1)))
(/.f64 (neg.f64 (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) (neg.f64 (fma.f64 lambda1 lambda1 (-.f64 (*.f64 lambda2 lambda2) (*.f64 lambda1 (neg.f64 lambda2))))))
(/.f64 (neg.f64 (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) (neg.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (+.f64 lambda2 lambda1) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2)))))
(/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (-.f64 lambda1 (neg.f64 lambda2)))
(/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1))
(/.f64 (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2)) (fma.f64 lambda1 lambda1 (-.f64 (*.f64 lambda2 lambda2) (*.f64 lambda1 (neg.f64 lambda2)))))
(/.f64 (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2)) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))
(/.f64 #s(literal -2 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 lambda2 lambda1) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))))
(/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(fma.f64 #s(literal -1 binary64) lambda2 lambda1)
(fma.f64 #s(literal 1 binary64) lambda1 (*.f64 #s(literal 1 binary64) (neg.f64 lambda2)))
(fma.f64 lambda1 #s(literal 1 binary64) (*.f64 (neg.f64 lambda2) #s(literal 1 binary64)))
(-.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1)) (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1)))
(-.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))
(-.f64 lambda1 lambda2)
(+.f64 (*.f64 lambda1 #s(literal 1 binary64)) (*.f64 (neg.f64 lambda2) #s(literal 1 binary64)))
(+.f64 (*.f64 #s(literal 1 binary64) lambda1) (*.f64 #s(literal 1 binary64) (neg.f64 lambda2)))
(+.f64 (neg.f64 lambda2) lambda1)
(+.f64 lambda1 (neg.f64 lambda2))
(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)) #s(literal 1/2 binary64))
(*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))
(*.f64 (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))))
(*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))
(*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) #s(literal 2 binary64))
(*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(pow.f64 (/.f64 (+.f64 phi2 phi1) (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2))) #s(literal -1 binary64))
(/.f64 (neg.f64 (*.f64 (neg.f64 (-.f64 phi1 phi2)) #s(literal 2 binary64))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (neg.f64 (+.f64 phi2 phi1)))
(/.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)))) (neg.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))))
(/.f64 (neg.f64 (*.f64 #s(literal 2 binary64) (neg.f64 (-.f64 phi1 phi2)))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -2 binary64))
(/.f64 (neg.f64 (neg.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))) (neg.f64 (neg.f64 (+.f64 phi2 phi1))))
(/.f64 (neg.f64 (neg.f64 (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)))) (neg.f64 (neg.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))))
(/.f64 (*.f64 (neg.f64 (-.f64 phi1 phi2)) #s(literal 2 binary64)) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))) (+.f64 phi2 phi1))
(/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2))) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))
(/.f64 (*.f64 #s(literal 2 binary64) (neg.f64 (-.f64 phi1 phi2))) #s(literal -2 binary64))
(/.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))) (neg.f64 (-.f64 phi1 (neg.f64 phi2))))
(/.f64 (neg.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))) (neg.f64 (+.f64 phi2 phi1)))
(/.f64 (neg.f64 (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2))) (neg.f64 (fma.f64 phi1 phi1 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 (neg.f64 phi2))))))
(/.f64 (neg.f64 (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2))) (neg.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (+.f64 phi2 phi1) (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)))))
(/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (-.f64 phi1 (neg.f64 phi2)))
(/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (+.f64 phi2 phi1))
(/.f64 (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)) (fma.f64 phi1 phi1 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 (neg.f64 phi2)))))
(/.f64 (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))
(/.f64 #s(literal -2 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi2 phi1) (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2))))
(/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))
(fma.f64 #s(literal -1 binary64) phi2 phi1)
(fma.f64 #s(literal 1 binary64) phi1 (*.f64 #s(literal 1 binary64) (neg.f64 phi2)))
(fma.f64 phi1 #s(literal 1 binary64) (*.f64 (neg.f64 phi2) #s(literal 1 binary64)))
(-.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1)) (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)))
(-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) phi1) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))) (/.f64 (*.f64 (*.f64 phi2 phi2) phi2) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))))
(-.f64 phi1 phi2)
(+.f64 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 (neg.f64 phi2) #s(literal 1 binary64)))
(+.f64 (*.f64 #s(literal 1 binary64) phi1) (*.f64 #s(literal 1 binary64) (neg.f64 phi2)))
(+.f64 (neg.f64 phi2) phi1)
(+.f64 phi1 (neg.f64 phi2))
(*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64))))
(*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))))
(*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) #s(literal 1 binary64))))
(pow.f64 (/.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(/.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (neg.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1/4 binary64) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))))) (neg.f64 (neg.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (neg.f64 (neg.f64 (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)))))
(/.f64 (neg.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) #s(literal 1 binary64)))))
(/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))
(/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))
(/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (-.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (neg.f64 (-.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (neg.f64 (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) #s(literal 1 binary64))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (-.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (neg.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 #s(literal -1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(fma.f64 #s(literal -1 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (neg.f64 (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))) (/.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))))
(-.f64 (/.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64))) (/.f64 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64))))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) #s(literal 1 binary64))) (/.f64 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) #s(literal 1 binary64))))
(-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+.f64 (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64))
(+.f64 (neg.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))))
(+.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(+.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(+.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(+.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(*.f64 (pow.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) #s(literal 2 binary64)))
(*.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))) #s(literal 2 binary64)))
(*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(*.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(pow.f64 (exp.f64 #s(literal 2 binary64)) (log.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(pow.f64 (/.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) #s(literal -1 binary64))
(pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1 binary64))
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))
(/.f64 (neg.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))))) (neg.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (neg.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))))) (neg.f64 (neg.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))))
(/.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)))) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (neg.f64 (+.f64 #s(literal 1/4 binary64) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (neg.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))))))
(/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(/.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(/.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))))
(fma.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal 1/2 binary64) (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))
(-.f64 (/.f64 #s(literal 1/4 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(-.f64 (/.f64 #s(literal 1/8 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (/.f64 (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
(exp.f64 (+.f64 (log.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (log.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
(exp.f64 (*.f64 (*.f64 (log.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))
(+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (-.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(*.f64 (+.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))))))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64)))))
(pow.f64 (/.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))))))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64))) (+.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 6 binary64)))) #s(literal -1 binary64))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64)))) (neg.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))))) (neg.f64 (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (neg.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 6 binary64))))) (neg.f64 (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))))))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 6 binary64)))) (neg.f64 (+.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 6 binary64)))) (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))))))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))))))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64))) (+.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 6 binary64))))))
(/.f64 (-.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 6 binary64))) (+.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 6 binary64))) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))))))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))))))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64))) (+.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 6 binary64)))))
(fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 (cos.f64 phi2) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 (cos.f64 phi1) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))
(-.f64 (/.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (/.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))
(*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))))))
(*.f64 (+.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) (-.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) #s(literal 2 binary64)))))
(pow.f64 (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1))))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) (-.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) #s(literal 2 binary64))) (+.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) #s(literal 3 binary64)))) #s(literal -1 binary64))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) #s(literal 2 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) #s(literal 2 binary64)))) (neg.f64 (-.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)))) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) #s(literal 2 binary64))))) (neg.f64 (neg.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1))))))))))
(/.f64 (neg.f64 (neg.f64 (+.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (fma.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) (-.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) #s(literal 2 binary64))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)))) #s(literal 2 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) #s(literal 2 binary64))) (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1))))
(/.f64 (-.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) #s(literal 2 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) #s(literal 2 binary64))) (-.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)))) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) (-.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) #s(literal 2 binary64)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1))))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) #s(literal 2 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) (-.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) #s(literal 2 binary64))) (+.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) #s(literal 3 binary64))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1))))))))
(/.f64 (+.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) #s(literal 3 binary64))) (+.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1))))))))))
(/.f64 (+.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) #s(literal 3 binary64))) (fma.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) (-.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1))))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) (-.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2))) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) #s(literal 2 binary64))) (+.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) #s(literal 3 binary64)))))
(fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) phi2 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))))
(fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))))
(fma.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1))))))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)))
(fma.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 4 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)))
(fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (*.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2))))
(fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2) (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))))
(fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) phi2) (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))))
(fma.f64 phi2 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))))
(-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) #s(literal 2 binary64)) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))))) (/.f64 (pow.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) #s(literal 2 binary64)) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)))
(-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1))))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2))))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)))) (*.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)) (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))))
(+.f64 (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1)))))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2)))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) phi1))))) (fma.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2))))
(*.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(*.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))))
(*.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))
(pow.f64 (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(/.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))))) (neg.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))))) (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))) (neg.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))))) (neg.f64 (neg.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (neg.f64 (neg.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))))))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (*.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))))))
(/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))))
(fma.f64 (pow.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)))) #s(literal 1 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64))) #s(literal 1 binary64)) (pow.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(fma.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal 2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1 binary64) (*.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 phi2) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 phi1) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (/.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(+.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (*.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)))
(+.f64 (*.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(+.f64 (*.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (*.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))
(+.f64 (*.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))) #s(literal 1 binary64)))
(*.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))
(*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))))
(pow.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(pow.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) #s(literal -1 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 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 1 binary64))
(/.f64 (neg.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (neg.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))))))
(/.f64 (-.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (+.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (neg.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))
(/.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))))))
(/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))
(/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))))
(/.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)))))
(neg.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))
(fma.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(fma.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(fma.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 (neg.f64 lambda2) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 (neg.f64 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))
(-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))) (/.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(exp.f64 (log.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))))
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 (neg.f64 lambda2) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 (neg.f64 lambda2) #s(literal 1/2 binary64)))))
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))
(+.f64 (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(*.f64 (pow.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal 1 binary64)))
(*.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(pow.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64))
(pow.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))) #s(literal -1 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 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64))
(/.f64 (neg.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (neg.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))))
(/.f64 (-.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (+.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) phi2) (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) #s(literal 2 binary64))
(/.f64 (exp.f64 (log.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (exp.f64 (log.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(/.f64 (exp.f64 (log.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))))) (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 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))))
(/.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))) (neg.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(/.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))) (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))))))
(/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(/.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))))
(neg.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))))
(fma.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 phi2)))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 (neg.f64 phi2) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 (neg.f64 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (/.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(exp.f64 (log.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 phi2)))))
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 (neg.f64 phi2) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 (neg.f64 phi2) #s(literal 1/2 binary64)))))
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+.f64 (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64))))
(*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))))
(*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) #s(literal 1 binary64))))
(pow.f64 (/.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(/.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (neg.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1/4 binary64) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))))) (neg.f64 (neg.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (neg.f64 (neg.f64 (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)))))
(/.f64 (neg.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) #s(literal 1 binary64)))))
(/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))
(/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))
(/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (-.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (neg.f64 (-.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (neg.f64 (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) #s(literal 1 binary64))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (-.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (neg.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 #s(literal -1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(fma.f64 #s(literal -1 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (neg.f64 (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) (+.f64 #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))) (/.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))))
(-.f64 (/.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64))) (/.f64 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64))))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) #s(literal 1 binary64))) (/.f64 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) #s(literal 1 binary64))))
(-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+.f64 (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64))
(+.f64 (neg.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))))
(+.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(+.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(+.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(+.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(*.f64 (pow.f64 #s(literal 1 binary64) #s(literal 1/2 binary64)) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))))
(*.f64 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1/4 binary64)))
(*.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(*.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))))))
(*.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))) (pow.f64 #s(literal 1 binary64) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))))
(pow.f64 (exp.f64 (log.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))
(pow.f64 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64))
(pow.f64 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64))
(pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(/.f64 (neg.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))))) (neg.f64 (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (neg.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))))) (neg.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))))))
(/.f64 (sqrt.f64 (*.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (sqrt.f64 (*.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))))) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))) (sqrt.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))))
(/.f64 (sqrt.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))))) (sqrt.f64 (neg.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (sqrt.f64 (neg.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))))) (sqrt.f64 (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))) (sqrt.f64 (+.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
(/.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))))))
(sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))
(exp.f64 (*.f64 (log.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)))
(*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)))) #s(literal -1 binary64))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)))) (neg.f64 (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
(/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64))) #s(literal 1 binary64))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64))) (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(fma.f64 (cos.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (cos.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1))) (*.f64 (sin.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (sin.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1)))))
(fma.f64 (cos.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))) (cos.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))) (*.f64 (sin.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))) (sin.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(fma.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(-.f64 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1 binary64))) (cos.f64 (*.f64 (neg.f64 lambda2) #s(literal 1 binary64)))) (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1 binary64))) (sin.f64 (*.f64 (neg.f64 lambda2) #s(literal 1 binary64)))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1 binary64) (neg.f64 lambda2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1 binary64) (neg.f64 lambda2)))))
(-.f64 (*.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 lambda1)))
(-.f64 (*.f64 (cos.f64 lambda1) (cos.f64 (neg.f64 lambda2))) (*.f64 (sin.f64 lambda1) (sin.f64 (neg.f64 lambda2))))
(-.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
(cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (*.f64 (cos.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (cos.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (sin.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1)))))
(+.f64 (*.f64 (cos.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))) (cos.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))) (*.f64 (sin.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))) (sin.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))))
(+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(+.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(*.f64 (pow.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)))) #s(literal 1 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64))) #s(literal 1 binary64)) (pow.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) #s(literal 1 binary64)))
(*.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(*.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))
(*.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)))
(*.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal 2 binary64)))
(*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(*.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(pow.f64 (exp.f64 #s(literal 2 binary64)) (log.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(pow.f64 (/.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) #s(literal -1 binary64))
(pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1 binary64))
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))) (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(/.f64 (neg.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))) (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(/.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(/.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))))) (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))))) (neg.f64 (neg.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))))
(/.f64 (neg.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))))
(/.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))))) (neg.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))))
(/.f64 (neg.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (neg.f64 (*.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(/.f64 (neg.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 2 binary64))) (neg.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 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) #s(literal 2 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))))) (neg.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)))) (neg.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (neg.f64 (+.f64 #s(literal 1/4 binary64) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (neg.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(/.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(/.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))) (*.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(/.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) #s(literal 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 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) #s(literal 2 binary64)))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))))))
(/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(/.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))
(/.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))))
(fma.f64 (neg.f64 (cos.f64 (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))
(fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(fma.f64 #s(literal 1/2 binary64) (neg.f64 (cos.f64 (-.f64 phi1 phi2))) #s(literal 1/2 binary64))
(-.f64 (/.f64 #s(literal 1/4 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(-.f64 (/.f64 #s(literal 1/8 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (/.f64 (*.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(exp.f64 (log.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))
(+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (*.f64 (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
(*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))) #s(literal -1 binary64))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)))) (neg.f64 (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))))))
(/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.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)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))) #s(literal 1 binary64))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64))) (+.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))))
(fma.f64 (cos.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1))) (*.f64 (sin.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1))) (sin.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)))))
(fma.f64 (cos.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) phi1) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))) (cos.f64 (/.f64 (*.f64 (*.f64 phi2 phi2) phi2) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))) (*.f64 (sin.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) phi1) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))) (sin.f64 (/.f64 (*.f64 (*.f64 phi2 phi2) phi2) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))
(fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (cos.f64 phi1) (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(-.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1 binary64))) (cos.f64 (*.f64 (neg.f64 phi2) #s(literal 1 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1 binary64))) (sin.f64 (*.f64 (neg.f64 phi2) #s(literal 1 binary64)))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1 binary64) (neg.f64 phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1 binary64) (neg.f64 phi2)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(-.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(-.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (neg.f64 (sin.f64 phi2))))
(cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(cos.f64 (-.f64 phi1 phi2))
(+.f64 (*.f64 (cos.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)))) (*.f64 (sin.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1))) (sin.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)))))
(+.f64 (*.f64 (cos.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) phi1) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))) (cos.f64 (/.f64 (*.f64 (*.f64 phi2 phi2) phi2) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))))) (*.f64 (sin.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) phi1) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))) (sin.f64 (/.f64 (*.f64 (*.f64 phi2 phi2) phi2) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))))))
(+.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(+.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))
(+.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
#s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))
(*.f64 (pow.f64 (sqrt.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 1 binary64)))
(*.f64 (sqrt.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))) (sqrt.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))
(pow.f64 (sqrt.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))
(pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))) #s(literal 1/2 binary64))
(pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1 binary64))
(sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))
(exp.f64 (log.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (*.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(*.f64 (pow.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))) #s(literal 1 binary64)))
(*.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))
(*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))))
(pow.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(pow.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) #s(literal -1 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 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 1 binary64))
(/.f64 (neg.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (neg.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))))) (neg.f64 (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))))))
(/.f64 (-.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (+.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (neg.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))
(/.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))))))
(/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))
(/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))))
(/.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)))))
(neg.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))
(fma.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(fma.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(fma.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 (neg.f64 lambda2) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 (neg.f64 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))
(-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))) (/.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(exp.f64 (log.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))))
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 (neg.f64 lambda2) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 (neg.f64 lambda2) #s(literal 1/2 binary64)))))
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))
(+.f64 (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(*.f64 (pow.f64 #s(literal 1 binary64) #s(literal 1/2 binary64)) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))))
(*.f64 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1/4 binary64)))
(*.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(*.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))))))
(*.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))) (pow.f64 #s(literal 1 binary64) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))))
(pow.f64 (exp.f64 (log.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))
(pow.f64 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64))
(pow.f64 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64))
(pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(/.f64 (neg.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))))) (neg.f64 (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (neg.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))))) (neg.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))))))
(/.f64 (sqrt.f64 (*.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (sqrt.f64 (*.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))))) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))) (sqrt.f64 (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))))
(/.f64 (sqrt.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))))) (sqrt.f64 (neg.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (sqrt.f64 (neg.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))))) (sqrt.f64 (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))) (sqrt.f64 (+.f64 (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (*.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
(/.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))))))
(sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))
(exp.f64 (*.f64 (log.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)))

eval1.4s (3.1%)

Memory
47.1MiB live, 1 955.0MiB allocated
Compiler

Compiled 430 909 to 19 590 computations (95.5% saved)

prune1.6s (3.4%)

Memory
17.1MiB live, 2 670.4MiB allocated
Pruning

187 alts after pruning (187 fresh and 0 done)

PrunedKeptTotal
New5 0811775 258
Fresh711081
Picked505
Done000
Total5 1571875 344
Accuracy
81.4%
Counts
5 344 → 187
Alt Table
Click to see full alt table
StatusAccuracyProgram
64.6%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
61.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
55.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
61.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 (/.f64 #s(literal 1/4 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
62.6%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
62.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
62.6%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
57.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
38.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
63.8%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
62.0%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
57.0%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
62.0%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (/.f64 #s(literal 1/4 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
62.0%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
63.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
22.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)) (fma.f64 phi1 phi1 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
58.0%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
32.0%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
62.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
49.8%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
49.8%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
62.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (*.f64 R #s(literal 2 binary64)))
62.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (*.f64 R #s(literal 2 binary64)))
62.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
62.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))))))) (*.f64 R #s(literal 2 binary64)))
62.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (/.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64))) (/.f64 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
62.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
63.0%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
63.0%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
34.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (+.f64 phi2 phi1))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
62.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
62.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (/.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
62.6%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
39.6%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
38.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
50.8%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
41.2%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 lambda2) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
44.4%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
57.9%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (*.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
47.8%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
39.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) phi1) #s(literal -1/2 binary64) (sin.f64 phi2)) phi1 (cos.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
42.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi2) phi1 (cos.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
47.6%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi2)))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
43.0%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi1)))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
62.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
42.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (+.f64 (cos.f64 phi2) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))) (*.f64 R #s(literal 2 binary64)))
49.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
45.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
37.8%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1)) #s(literal 1/2 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
48.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
▶43.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
42.7%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi2) phi1 (cos.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
37.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
43.9%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
38.9%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
62.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
62.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
50.8%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
39.9%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
45.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 lambda2) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
44.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
40.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
48.4%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos.f64 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
44.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos.f64 lambda1)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
50.4%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
62.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (pow.f64 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
62.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (*.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
60.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
62.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
62.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
66.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
28.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (exp.f64 (log.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))))) (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 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
64.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
63.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
▶67.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
67.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))
68.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
67.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))))))
▶79.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
79.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
66.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
66.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
67.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
52.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
55.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64)))))))))))
56.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
▶63.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
15.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
52.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
43.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
44.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (fma.f64 (neg.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi1 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))))) phi1 #s(literal 1 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
47.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (fma.f64 (neg.f64 phi1) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 1 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
53.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
48.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
54.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
29.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
42.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
20.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
55.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
58.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
55.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
41.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
66.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
67.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
50.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
57.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
66.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
57.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
63.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
57.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
50.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
58.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
66.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
65.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))))
61.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
60.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))))
54.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1))))))))))
48.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
14.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
47.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
51.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
45.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (fma.f64 (neg.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))) lambda1 #s(literal 1 binary64)) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
49.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (fma.f64 (neg.f64 (*.f64 lambda1 (cos.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 1 binary64)) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
51.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
47.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
53.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
49.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
19.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
54.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
50.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
47.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
44.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
49.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
66.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
56.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) lambda2)) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
54.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) lambda2)) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) #s(literal 2 binary64)))))))))))
43.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi1) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
41.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
47.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
33.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (+ (* (* (sin (* phi1 1/2)) phi2) (cos (* phi1 -1/2))) (- (pow (cos (* phi1 -1/2)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
8.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (+ (* (* (sin (* phi1 1/2)) phi2) (cos (* phi1 -1/2))) (- (pow (cos (* phi1 -1/2)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1)))) (*.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))))
19.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
58.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) lambda2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
50.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
47.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
30.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
42.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
31.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
62.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
27.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
15.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
15.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
42.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
20.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
42.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
43.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
▶43.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
43.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
44.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
44.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
31.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
42.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
43.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
43.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
32.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
43.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
40.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
35.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64)))))))))))
34.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
32.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
42.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
13.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
29.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
43.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
34.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
40.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
27.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
13.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
31.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
34.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
32.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
31.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
43.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
49.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
46.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
52.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
48.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
Compiler

Compiled 31 256 to 15 640 computations (50% saved)

simplify186.0ms (0.4%)

Memory
-3.7MiB live, 184.0MiB allocated
Algorithm
1×egg-herbie
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
cost-diff128
(+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
cost-diff128
(+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
cost-diff384
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
cost-diff1088
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))
cost-diff0
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
cost-diff128
(+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
cost-diff320
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
cost-diff384
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
cost-diff0
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
cost-diff128
(-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))))
cost-diff128
(+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
cost-diff384
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
cost-diff128
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
cost-diff256
(-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
cost-diff640
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
cost-diff640
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
cost-diff0
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
cost-diff128
(+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
cost-diff128
(+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
cost-diff384
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
Rules
15 210×lower-fma.f32
15 200×lower-fma.f64
3 450×lower-+.f32
3 436×lower-+.f64
3 026×lower-*.f32
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
01252765
02262713
13952609
27942609
320762609
468882609
081812543
Stop Event
1×iter limit
1×node limit
1×iter limit
Calls
Call 1
Inputs
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
R
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(*.f64 phi1 #s(literal 1/2 binary64))
phi1
#s(literal 1/2 binary64)
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 phi2 #s(literal 1/2 binary64))
phi2
(*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos.f64 phi1)
(cos.f64 phi2)
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
#s(literal 1 binary64)
(+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(*.f64 #s(literal 1/2 binary64) phi2)
(neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(*.f64 #s(literal 1/2 binary64) phi1)
(*.f64 (cos.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) phi2))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
#s(literal 1/2 binary64)
(*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
#s(literal 2 binary64)
(*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(cos.f64 phi2)
phi2
(cos.f64 phi1)
phi1
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))
(-.f64 phi1 phi2)
(sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(cos.f64 (-.f64 lambda1 lambda2))
(*.f64 R #s(literal 2 binary64))
R
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
R
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))
#s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))
(*.f64 phi1 #s(literal 1/2 binary64))
phi1
#s(literal 1/2 binary64)
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos.f64 phi1)
(cos.f64 phi2)
phi2
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))
(/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))
(-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))))
(+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64))
(cos.f64 (-.f64 phi1 phi2))
(-.f64 phi1 phi2)
#s(literal 1 binary64)
(*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
#s(literal -1/2 binary64)
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))
(cos.f64 (+.f64 phi2 phi1))
(+.f64 phi2 phi1)
(cos.f64 (-.f64 phi2 phi1))
(-.f64 phi2 phi1)
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
R
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(*.f64 phi1 #s(literal 1/2 binary64))
phi1
#s(literal 1/2 binary64)
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 phi2 #s(literal 1/2 binary64))
phi2
(*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos.f64 phi1)
(cos.f64 phi2)
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
#s(literal -1/2 binary64)
(cos.f64 (-.f64 lambda1 lambda2))
(neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(cos.f64 (-.f64 phi1 phi2))
(-.f64 phi1 phi2)
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
R
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(*.f64 phi1 #s(literal 1/2 binary64))
phi1
#s(literal 1/2 binary64)
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 phi2 #s(literal 1/2 binary64))
phi2
(*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos.f64 phi1)
(cos.f64 phi2)
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
#s(literal 1 binary64)
(+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64))
(sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))
(/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))
(-.f64 phi1 phi2)
Outputs
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))))
R
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
(atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(sqrt.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))
(-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(*.f64 phi1 #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) phi1)
phi1
#s(literal 1/2 binary64)
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 phi2 #s(literal 1/2 binary64))
phi2
(*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(cos.f64 phi1)
(cos.f64 phi2)
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
#s(literal 1 binary64)
(+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))
(pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 #s(literal 1/2 binary64) phi2)
(*.f64 phi2 #s(literal 1/2 binary64))
(neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(*.f64 #s(literal 1/2 binary64) phi1)
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))
(atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))))
(atan2.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))
(sqrt.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi2 phi1))))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))
(*.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi2 phi1)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
(*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(cos.f64 (-.f64 lambda2 lambda1))
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(-.f64 lambda1 lambda2)
#s(literal 2 binary64)
(*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(cos.f64 phi2)
phi2
(cos.f64 phi1)
phi1
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))
(cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(cos.f64 (-.f64 phi2 phi1))
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(-.f64 phi1 phi2)
(*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))
(*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))
(-.f64 phi1 phi2)
(sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))
(sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)))
(-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(cos.f64 (-.f64 lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(*.f64 R #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) R)
R
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64))) #s(literal 2 binary64)))) (*.f64 #s(literal 2 binary64) R))
R
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64))) #s(literal 2 binary64)))) #s(literal 2 binary64))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))
(atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64))) #s(literal 2 binary64))))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(sqrt.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))
(+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))
(pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))
(sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))
(sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))
#s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))
#s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))
(*.f64 phi1 #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) phi1)
phi1
#s(literal 1/2 binary64)
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(cos.f64 phi1)
(cos.f64 phi2)
phi2
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))
(sqrt.f64 (/.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64))) #s(literal 2 binary64)))
(/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))
(/.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64))) #s(literal 2 binary64))
(-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))))
(fma.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)))
(+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64))
(+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64))
(cos.f64 (-.f64 phi1 phi2))
(cos.f64 (-.f64 phi2 phi1))
(-.f64 phi1 phi2)
#s(literal 1 binary64)
(*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))
(*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
#s(literal -1/2 binary64)
(cos.f64 (-.f64 lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))
(cos.f64 (+.f64 phi2 phi1))
(+.f64 phi2 phi1)
(cos.f64 (-.f64 phi2 phi1))
(-.f64 phi2 phi1)
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) R)
R
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(sqrt.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))
(-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(*.f64 phi1 #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) phi1)
phi1
#s(literal 1/2 binary64)
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 phi2 #s(literal 1/2 binary64))
phi2
(*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(cos.f64 phi1)
(cos.f64 phi2)
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
#s(literal -1/2 binary64)
(cos.f64 (-.f64 lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(cos.f64 (-.f64 phi1 phi2))
(cos.f64 (-.f64 phi2 phi1))
(-.f64 phi1 phi2)
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 #s(literal 2 binary64) R))
R
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
(atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(sqrt.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))
(-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(*.f64 phi1 #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) phi1)
phi1
#s(literal 1/2 binary64)
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 phi2 #s(literal 1/2 binary64))
phi2
(*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(cos.f64 phi1)
(cos.f64 phi2)
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
#s(literal 1 binary64)
(+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(fma.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64))
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))
(*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))
(/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))
(-.f64 phi1 phi2)

localize1.3s (2.8%)

Memory
12.1MiB live, 1 522.3MiB allocated
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
accuracy0.650329111447397
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
accuracy0.7202062309240814
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
accuracy12.087259885353925
(sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))
accuracy14.320260536403843
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
accuracy11.682314986708235
(cos.f64 (-.f64 phi1 phi2))
accuracy12.708443331799739
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
accuracy14.320260536403843
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
accuracy14.43134466485357
(cos.f64 (-.f64 lambda1 lambda2))
accuracy12.708443331799739
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
accuracy14.320260536403843
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
accuracy14.43134466485357
(cos.f64 (-.f64 lambda1 lambda2))
accuracy33.69704323805402
#s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))
accuracy12.708443331799739
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
accuracy14.43134466485357
(cos.f64 (-.f64 lambda1 lambda2))
accuracy14.43134466485357
(cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
accuracy26.91908068709682
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
accuracy0.41015625
(pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
accuracy0.650329111447397
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
accuracy0.7202062309240814
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
accuracy14.320260536403843
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
Samples
990.0ms227×1valid
99.0ms28×2valid
1.0ms1×0valid
Compiler

Compiled 2 708 to 115 computations (95.8% saved)

Precisions
Click to see histograms. Total time spent on operations: 903.0ms
ival-cos: 358.0ms (39.6% of total)
ival-mult: 155.0ms (17.2% of total)
ival-sin: 124.0ms (13.7% of total)
adjust: 76.0ms (8.4% of total)
ival-add: 53.0ms (5.9% of total)
ival-sub: 33.0ms (3.7% of total)
ival-atan2: 33.0ms (3.7% of total)
ival-sqrt: 27.0ms (3% of total)
ival-div: 20.0ms (2.2% of total)
ival-pow2: 19.0ms (2.1% of total)
ival-neg: 4.0ms (0.4% of total)
exact: 1.0ms (0.1% of total)
ival-true: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)

series396.0ms (0.9%)

Memory
-286.9MiB live, 387.3MiB allocated
Counts
27 → 996
Calls
Call 1
Inputs
#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())
#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())
#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())
#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())
#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())
#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())
#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())
#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())
#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())
#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())
#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())
#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())
#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())
#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())
#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())
#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())
#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())
#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())
#s(alt (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #<representation binary64>) () ())
#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())
#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())
#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())
#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())
#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())
#s(alt (cos.f64 (-.f64 phi1 phi2)) (patch (cos.f64 (-.f64 phi1 phi2)) #<representation binary64>) () ())
#s(alt (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (patch (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())
#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())
Outputs
#s(alt (* -1/2 lambda2) (taylor 0 lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor 0 lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor 0 lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor 0 lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor 0 lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* -1 lambda2) (taylor 0 lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (- lambda1 lambda2) (taylor 0 lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (- lambda1 lambda2) (taylor 0 lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (- lambda1 lambda2) (taylor 0 lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (neg lambda2))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* lambda1 (sin (neg lambda2)))) (* 1/2 (cos (neg lambda2)))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (cos (neg lambda2))) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/4 (* lambda1 (cos (neg lambda2))))))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (cos (neg lambda2))) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* lambda1 (+ (* -1/4 (cos (neg lambda2))) (* 1/12 (* lambda1 (sin (neg lambda2))))))))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (neg lambda2)))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (* lambda1 (sin (neg lambda2))))) (* 1/2 (cos (neg lambda2)))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* lambda1 (- (* 1/4 (* lambda1 (cos (neg lambda2)))) (* -1/2 (sin (neg lambda2)))))) (* 1/2 (cos (neg lambda2)))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* lambda1 (- (* lambda1 (- (* -1/12 (* lambda1 (sin (neg lambda2)))) (* -1/4 (cos (neg lambda2))))) (* -1/2 (sin (neg lambda2)))))) (* 1/2 (cos (neg lambda2)))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor 0 lambda1) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (+ (cos (- phi1 phi2)) (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))) (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor 0 lambda1) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (+ (cos (- phi1 phi2)) (* lambda1 (- (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/2 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor 0 lambda1) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (+ (cos (- phi1 phi2)) (* lambda1 (- (* lambda1 (- (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/4 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))) (* 1/2 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor 0 lambda1) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (taylor 0 lambda1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))) (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (cos (- phi1 phi2)))))) (taylor 0 lambda1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))) (+ (* 1/2 (cos (- phi1 phi2))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))))))) (taylor 0 lambda1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))) (+ (* 1/2 (cos (- phi1 phi2))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))))))) (taylor 0 lambda1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor 0 lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 lambda2)) (taylor 0 lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2))))) (taylor 0 lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2)))))) (taylor 0 lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))) (taylor 0 lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (taylor 0 lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (taylor 0 lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))))) (taylor 0 lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2))))))) (taylor 0 lambda1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2))))))) (taylor 0 lambda1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda1 (- (* -1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2))))))) (taylor 0 lambda1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda1 (- (* lambda1 (- (* 1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2))))))) (taylor 0 lambda1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (cos (neg lambda2)) (taylor 0 lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) (taylor 0 lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (taylor 0 lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))))) (taylor 0 lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (neg lambda2)) (taylor 0 lambda1) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) (taylor 0 lambda1) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (taylor 0 lambda1) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))))) (taylor 0 lambda1) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg lambda2)))) (taylor 0 lambda1) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (neg lambda2))) (* 1/2 (* lambda1 (sin (neg lambda2)))))) (taylor 0 lambda1) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (neg lambda2))) (* lambda1 (+ (* 1/4 (* lambda1 (cos (neg lambda2)))) (* 1/2 (sin (neg lambda2))))))) (taylor 0 lambda1) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (neg lambda2))) (* lambda1 (+ (* 1/2 (sin (neg lambda2))) (* lambda1 (+ (* -1/12 (* lambda1 (sin (neg lambda2)))) (* 1/4 (cos (neg lambda2))))))))) (taylor 0 lambda1) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 lambda1) (taylor inf lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor inf lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor inf lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor inf lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor inf lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor inf lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf lambda1) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf lambda1) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf lambda1) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf lambda1) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor inf lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor inf lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor inf lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor inf lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (taylor inf lambda1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (taylor inf lambda1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (taylor inf lambda1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (taylor inf lambda1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor inf lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor inf lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor inf lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor inf lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf lambda1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf lambda1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf lambda1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf lambda1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda1) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda1) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda1) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda1) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda1) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda1) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda1) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda1) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 lambda1) (taylor -inf lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2))) (taylor -inf lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2))) (taylor -inf lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2))) (taylor -inf lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor -inf lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor -inf lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (/ lambda2 lambda1) 1))) (taylor -inf lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (/ lambda2 lambda1) 1))) (taylor -inf lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (/ lambda2 lambda1) 1))) (taylor -inf lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (neg (+ lambda2 (* -1 lambda1))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (neg (+ lambda2 (* -1 lambda1))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (neg (+ lambda2 (* -1 lambda1))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (neg (+ lambda2 (* -1 lambda1))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor -inf lambda1) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor -inf lambda1) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor -inf lambda1) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor -inf lambda1) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor -inf lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor -inf lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor -inf lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor -inf lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (taylor -inf lambda1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (taylor -inf lambda1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (taylor -inf lambda1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))) (taylor -inf lambda1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor -inf lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor -inf lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor -inf lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor -inf lambda1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (taylor -inf lambda1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (taylor -inf lambda1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (taylor -inf lambda1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (taylor -inf lambda1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (cos (* -1 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (* -1 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (* -1 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (* -1 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (neg (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (cos (neg (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (cos (neg (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (cos (neg (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (taylor -inf lambda1) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (taylor -inf lambda1) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (taylor -inf lambda1) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (taylor -inf lambda1) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor 0 phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor 0 phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor 0 phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor 0 phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt phi1 (taylor 0 phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ phi1 (* -1 phi2)) (taylor 0 phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ phi1 (* -1 phi2)) (taylor 0 phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ phi1 (* -1 phi2)) (taylor 0 phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos phi1)) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (taylor 0 phi2) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (+ (cos phi1) (* -1 (* phi2 (+ (* -1 (sin phi1)) (* -1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1)))))))))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (taylor 0 phi2) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1/2 (cos phi1)) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1))))))) (+ (* -1 (sin phi1)) (* -1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1)))))))))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (taylor 0 phi2) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (+ (cos phi1) (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/6 (sin phi1)) (* -1/6 (sin (neg phi1)))))) (* 1/6 (sin phi1))))) (* -1/2 (cos phi1))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1))))))) (+ (* -1 (sin phi1)) (* -1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1)))))))))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1))))) (taylor 0 phi2) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor 0 phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor 0 phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor 0 phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor 0 phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (taylor 0 phi2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/2 (cos phi1)) (* 1/2 (* phi2 (sin phi1)))))) (taylor 0 phi2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/4 (cos phi1)) (* 1/2 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))))) (taylor 0 phi2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/4 (cos phi1)) (+ (* -1/12 (* phi2 (sin phi1))) (* 1/2 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))))))) (taylor 0 phi2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor 0 phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor 0 phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor 0 phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor 0 phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 phi1) (taylor 0 phi2) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi2) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi2) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi2) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* phi2 (- (* -1 (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* phi2 (- (* phi2 (- (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (taylor 0 phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))))) (taylor 0 phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 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))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))))))) (taylor 0 phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (pow (sin (* 1/2 phi1)) 2) (taylor 0 phi2) (#s(alt (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (sin (* 1/2 phi1)) 2)) (taylor 0 phi2) (#s(alt (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (pow (sin (* 1/2 phi1)) 2)) (taylor 0 phi2) (#s(alt (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))) (pow (sin (* 1/2 phi1)) 2)) (taylor 0 phi2) (#s(alt (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos phi1))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* phi2 (sin phi1))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (- (* -1/4 (cos phi1)) (* -1/2 (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (- (+ (* -1/4 (cos phi1)) (* -1/12 (* phi2 (sin phi1)))) (* -1/2 (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 phi1) (taylor 0 phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos phi1) (taylor 0 phi2) (#s(alt (cos.f64 (-.f64 phi1 phi2)) (patch (cos.f64 (-.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (cos phi1) (* phi2 (sin phi1))) (taylor 0 phi2) (#s(alt (cos.f64 (-.f64 phi1 phi2)) (patch (cos.f64 (-.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (cos phi1) (* phi2 (- (* -1/2 (* phi2 (cos phi1))) (* -1 (sin phi1))))) (taylor 0 phi2) (#s(alt (cos.f64 (-.f64 phi1 phi2)) (patch (cos.f64 (-.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (cos phi1) (* phi2 (- (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))) (* -1 (sin phi1))))) (taylor 0 phi2) (#s(alt (cos.f64 (-.f64 phi1 phi2)) (patch (cos.f64 (-.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 phi1)) (taylor 0 phi2) (#s(alt (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (patch (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1))))) (taylor 0 phi2) (#s(alt (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (patch (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1))))))) (taylor 0 phi2) (#s(alt (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (patch (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) (taylor 0 phi2) (#s(alt (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (patch (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* phi2 (- (* -1 (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* phi2 (- (* phi2 (- (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor inf phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor inf phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor inf phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor inf phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor inf phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (/ phi1 phi2) 1)) (taylor inf phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (/ phi1 phi2) 1)) (taylor inf phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (/ phi1 phi2) 1)) (taylor inf phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf phi2) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf phi2) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf phi2) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf phi2) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor inf phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor inf phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor inf phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor inf phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (taylor inf phi2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (taylor inf phi2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (taylor inf phi2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (taylor inf phi2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor inf phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor inf phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor inf phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor inf phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 phi2) (taylor inf phi2) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2)) (taylor inf phi2) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2)) (taylor inf phi2) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2)) (taylor inf phi2) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (taylor inf phi2) (#s(alt (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (taylor inf phi2) (#s(alt (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (taylor inf phi2) (#s(alt (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (taylor inf phi2) (#s(alt (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf phi2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf phi2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf phi2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf phi2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 phi2) (taylor inf phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2)) (taylor inf phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2)) (taylor inf phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2)) (taylor inf phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (- phi1 phi2)) (taylor inf phi2) (#s(alt (cos.f64 (-.f64 phi1 phi2)) (patch (cos.f64 (-.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (cos (- phi1 phi2)) (taylor inf phi2) (#s(alt (cos.f64 (-.f64 phi1 phi2)) (patch (cos.f64 (-.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (cos (- phi1 phi2)) (taylor inf phi2) (#s(alt (cos.f64 (-.f64 phi1 phi2)) (patch (cos.f64 (-.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (cos (- phi1 phi2)) (taylor inf phi2) (#s(alt (cos.f64 (-.f64 phi1 phi2)) (patch (cos.f64 (-.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi2) (#s(alt (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (patch (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi2) (#s(alt (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (patch (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi2) (#s(alt (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (patch (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi2) (#s(alt (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (patch (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor -inf phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor -inf phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor -inf phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor -inf phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (+ phi1 (* -1 phi2)))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (+ phi1 (* -1 phi2)))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (+ phi1 (* -1 phi2)))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (+ phi1 (* -1 phi2)))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (+ phi1 (* -1 phi2)))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2))))))))))) (taylor -inf phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (+ phi1 (* -1 phi2)))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2))))))))))) (taylor -inf phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (+ phi1 (* -1 phi2)))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2))))))))))) (taylor -inf phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (+ phi1 (* -1 phi2)))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2))))))))))) (taylor -inf phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))) (taylor -inf phi2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))))))) (taylor -inf phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))))))) (taylor -inf phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))))))) (taylor -inf phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2)))))))))) (taylor -inf phi2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 phi2) (taylor -inf phi2) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor -inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor -inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor -inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor -inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (taylor -inf phi2) (#s(alt (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (taylor -inf phi2) (#s(alt (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (taylor -inf phi2) (#s(alt (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (taylor -inf phi2) (#s(alt (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor -inf phi2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor -inf phi2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor -inf phi2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor -inf phi2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 phi2) (taylor -inf phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (+ phi1 (* -1 phi2))) (taylor -inf phi2) (#s(alt (cos.f64 (-.f64 phi1 phi2)) (patch (cos.f64 (-.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (cos (+ phi1 (* -1 phi2))) (taylor -inf phi2) (#s(alt (cos.f64 (-.f64 phi1 phi2)) (patch (cos.f64 (-.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (cos (+ phi1 (* -1 phi2))) (taylor -inf phi2) (#s(alt (cos.f64 (-.f64 phi1 phi2)) (patch (cos.f64 (-.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (cos (+ phi1 (* -1 phi2))) (taylor -inf phi2) (#s(alt (cos.f64 (-.f64 phi1 phi2)) (patch (cos.f64 (-.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (patch (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (patch (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (patch (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (patch (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (taylor -inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (taylor -inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (taylor -inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (taylor -inf phi2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor 0 phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor 0 phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor 0 phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor 0 phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor 0 phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (- phi1 phi2) (taylor 0 phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (- phi1 phi2) (taylor 0 phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (- phi1 phi2) (taylor 0 phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (neg phi2))) (* 2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (taylor 0 phi1) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (+ (cos (neg phi2)) (* -1 (* phi1 (+ (sin (neg phi2)) (* -1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2)))))))))) (* 2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (taylor 0 phi1) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (+ (cos (neg phi2)) (* phi1 (- (* phi1 (- (* -1/2 (cos (neg phi2))) (* -1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))) (+ (sin (neg phi2)) (* -1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2)))))))))) (* 2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (taylor 0 phi1) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (+ (cos (neg phi2)) (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/6 (sin phi2)) (* 1/6 (sin phi2))))) (* -1/6 (sin (neg phi2)))))) (* -1/2 (cos (neg phi2)))) (* -1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))) (+ (sin (neg phi2)) (* -1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2)))))))))) (* 2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (taylor 0 phi1) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor 0 phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor 0 phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor 0 phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor 0 phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2))))) (taylor 0 phi1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* -1/2 (* phi1 (sin (neg phi2)))) (* 1/2 (cos (neg phi2)))))) (taylor 0 phi1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/2 (cos (neg phi2))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/4 (cos (neg phi2))) (* 1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))))) (taylor 0 phi1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/2 (cos (neg phi2))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/4 (cos (neg phi2))) (+ (* 1/12 (* phi1 (sin (neg phi2)))) (* 1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))))))) (taylor 0 phi1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor 0 phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor 0 phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor 0 phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor 0 phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 phi2) (taylor 0 phi1) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi1) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi1) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi1) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* -1/2 (* (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (taylor 0 phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))))) (taylor 0 phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 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))))) (* -1/2 (/ (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))))))) (taylor 0 phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (pow (sin (* 1/2 phi2)) 2) (taylor 0 phi1) (#s(alt (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2)) (taylor 0 phi1) (#s(alt (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (pow (sin (* 1/2 phi2)) 2)) (taylor 0 phi1) (#s(alt (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))))))) (pow (sin (* 1/2 phi2)) 2)) (taylor 0 phi1) (#s(alt (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (neg phi2)))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* -1/2 (* phi1 (sin (neg phi2)))) (* 1/2 (cos (neg phi2))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (- (* -1/4 (cos (neg phi2))) (* -1/2 (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (- (+ (* -1/4 (cos (neg phi2))) (* 1/12 (* phi1 (sin (neg phi2))))) (* -1/2 (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 phi2) (taylor 0 phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (neg phi2)) (taylor 0 phi1) (#s(alt (cos.f64 (-.f64 phi1 phi2)) (patch (cos.f64 (-.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg phi2)) (* -1 (* phi1 (sin (neg phi2))))) (taylor 0 phi1) (#s(alt (cos.f64 (-.f64 phi1 phi2)) (patch (cos.f64 (-.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg phi2)) (* phi1 (- (* -1/2 (* phi1 (cos (neg phi2)))) (sin (neg phi2))))) (taylor 0 phi1) (#s(alt (cos.f64 (-.f64 phi1 phi2)) (patch (cos.f64 (-.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg phi2)) (* phi1 (- (* phi1 (+ (* -1/2 (cos (neg phi2))) (* 1/6 (* phi1 (sin (neg phi2)))))) (sin (neg phi2))))) (taylor 0 phi1) (#s(alt (cos.f64 (-.f64 phi1 phi2)) (patch (cos.f64 (-.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 phi2)) (taylor 0 phi1) (#s(alt (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (patch (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2))))) (taylor 0 phi1) (#s(alt (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (patch (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) (taylor 0 phi1) (#s(alt (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (patch (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2))))))))) (taylor 0 phi1) (#s(alt (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (patch (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* -1 (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))) (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor inf phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor inf phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor inf phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor inf phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt phi1 (taylor inf phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (* -1 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (* -1 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (* -1 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf phi1) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf phi1) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf phi1) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf phi1) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor inf phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor inf phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor inf phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor inf phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (taylor inf phi1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (taylor inf phi1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (taylor inf phi1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (taylor inf phi1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor inf phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor inf phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor inf phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor inf phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 phi1) (taylor inf phi1) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 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 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 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 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 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 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (taylor inf phi1) (#s(alt (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (taylor inf phi1) (#s(alt (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (taylor inf phi1) (#s(alt (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (taylor inf phi1) (#s(alt (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf phi1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf phi1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf phi1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf phi1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 phi1) (taylor inf phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (- phi1 phi2)) (taylor inf phi1) (#s(alt (cos.f64 (-.f64 phi1 phi2)) (patch (cos.f64 (-.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (cos (- phi1 phi2)) (taylor inf phi1) (#s(alt (cos.f64 (-.f64 phi1 phi2)) (patch (cos.f64 (-.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (cos (- phi1 phi2)) (taylor inf phi1) (#s(alt (cos.f64 (-.f64 phi1 phi2)) (patch (cos.f64 (-.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (cos (- phi1 phi2)) (taylor inf phi1) (#s(alt (cos.f64 (-.f64 phi1 phi2)) (patch (cos.f64 (-.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi1) (#s(alt (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (patch (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi1) (#s(alt (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (patch (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi1) (#s(alt (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (patch (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi1) (#s(alt (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (patch (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor -inf phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor -inf phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor -inf phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor -inf phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt phi1 (taylor -inf phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (/ phi2 phi1) 1))) (taylor -inf phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (/ phi2 phi1) 1))) (taylor -inf phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (/ phi2 phi1) 1))) (taylor -inf phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (neg (+ phi2 (* -1 phi1))))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (neg (+ phi2 (* -1 phi1))))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (neg (+ phi2 (* -1 phi1))))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (neg (+ phi2 (* -1 phi1))))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (neg (+ phi2 (* -1 phi1))))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))))))) (taylor -inf phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (neg (+ phi2 (* -1 phi1))))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))))))) (taylor -inf phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (neg (+ phi2 (* -1 phi1))))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))))))) (taylor -inf phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (neg (+ phi2 (* -1 phi1))))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))))))) (taylor -inf phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))) (taylor -inf phi1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))) (taylor -inf phi1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))) (taylor -inf phi1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))) (taylor -inf phi1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))))))) (taylor -inf phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))))))) (taylor -inf phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))))))) (taylor -inf phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1))))))))))) (taylor -inf phi1) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 phi1) (taylor -inf phi1) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 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 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 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 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 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 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (taylor -inf phi1) (#s(alt (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (taylor -inf phi1) (#s(alt (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (taylor -inf phi1) (#s(alt (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2) (taylor -inf phi1) (#s(alt (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (patch (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor -inf phi1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor -inf phi1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor -inf phi1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor -inf phi1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 phi1) (taylor -inf phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2))) (taylor -inf phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2))) (taylor -inf phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2))) (taylor -inf phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (cos (neg (+ phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (-.f64 phi1 phi2)) (patch (cos.f64 (-.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (cos (neg (+ phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (-.f64 phi1 phi2)) (patch (cos.f64 (-.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (cos (neg (+ phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (-.f64 phi1 phi2)) (patch (cos.f64 (-.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (cos (neg (+ phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (cos.f64 (-.f64 phi1 phi2)) (patch (cos.f64 (-.f64 phi1 phi2)) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (patch (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (patch (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (patch (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) (patch (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 lambda1) (taylor 0 lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor 0 lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor 0 lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor 0 lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor 0 lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor 0 lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (* -1 lambda2)) (taylor 0 lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (* -1 lambda2)) (taylor 0 lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (* -1 lambda2)) (taylor 0 lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos lambda1)) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (cos lambda1)) (* 1/2 (* lambda2 (sin lambda1)))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (cos lambda1)) (* lambda2 (+ (* -1/4 (* lambda2 (cos lambda1))) (* 1/2 (sin lambda1))))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (cos lambda1)) (* lambda2 (+ (* 1/2 (sin lambda1)) (* lambda2 (+ (* -1/4 (cos lambda1)) (* -1/12 (* lambda2 (sin lambda1)))))))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos lambda1))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* -1/2 (* lambda2 (sin lambda1)))) (* 1/2 (cos lambda1))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* lambda2 (- (* 1/4 (* lambda2 (cos lambda1))) (* 1/2 (sin lambda1))))) (* 1/2 (cos lambda1))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* lambda2 (- (* lambda2 (- (* 1/12 (* lambda2 (sin lambda1))) (* -1/4 (cos lambda1)))) (* 1/2 (sin lambda1))))) (* 1/2 (cos lambda1))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor 0 lambda2) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (+ (cos (- phi1 phi2)) (* 1/2 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))) (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor 0 lambda2) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (+ (cos (- phi1 phi2)) (* lambda2 (- (* -1/4 (* lambda2 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* -1/2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor 0 lambda2) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (+ (cos (- phi1 phi2)) (* lambda2 (- (* lambda2 (- (* -1/12 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/4 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))) (* -1/2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor 0 lambda2) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2))))) (taylor 0 lambda2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))) (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))) (taylor 0 lambda2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))) (+ (* 1/2 (cos (- phi1 phi2))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))))) (taylor 0 lambda2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))) (+ (* 1/2 (cos (- phi1 phi2))) (* lambda2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))))))) (taylor 0 lambda2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor 0 lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 lambda1)) (taylor 0 lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1))))) (taylor 0 lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1))))))) (taylor 0 lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1))))))))) (taylor 0 lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (taylor 0 lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (taylor 0 lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))))) (taylor 0 lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))))) (taylor 0 lambda2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))))) (taylor 0 lambda2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda2 (- (* -1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))))) (taylor 0 lambda2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda2 (- (* lambda2 (- (* -1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))))) (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))))) (taylor 0 lambda2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (cos lambda1) (taylor 0 lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos lambda1) (* lambda2 (sin lambda1))) (taylor 0 lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (taylor 0 lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1))))) (taylor 0 lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos lambda1) (taylor 0 lambda2) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (cos lambda1) (* lambda2 (sin lambda1))) (taylor 0 lambda2) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (taylor 0 lambda2) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1))))) (taylor 0 lambda2) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos lambda1))) (taylor 0 lambda2) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))) (taylor 0 lambda2) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/4 (* lambda2 (cos lambda1))))))) (taylor 0 lambda2) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* lambda2 (+ (* 1/12 (* lambda2 (sin lambda1))) (* 1/4 (cos lambda1)))))))) (taylor 0 lambda2) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 lambda2) (taylor inf lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2)) (taylor inf lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2)) (taylor inf lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2)) (taylor inf lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor inf lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor inf lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor inf lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor inf lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* -1 lambda2) (taylor inf lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (/ lambda1 lambda2) 1)) (taylor inf lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (/ lambda1 lambda2) 1)) (taylor inf lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (/ lambda1 lambda2) 1)) (taylor inf lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf lambda2) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf lambda2) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf lambda2) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor inf lambda2) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor inf lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor inf lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor inf lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor inf lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (taylor inf lambda2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (taylor inf lambda2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (taylor inf lambda2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))) (taylor inf lambda2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor inf lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor inf lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor inf lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor inf lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf lambda2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf lambda2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf lambda2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf lambda2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda2) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda2) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda2) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda2) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda2) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda2) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda2) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda2) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 lambda2) (taylor -inf lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor -inf lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* -1 lambda2) (taylor -inf lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor -inf lambda2) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor -inf lambda2) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor -inf lambda2) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))) (taylor -inf lambda2) (#s(alt (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) (patch (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor -inf lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor -inf lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor -inf lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor -inf lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (taylor -inf lambda2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (taylor -inf lambda2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (taylor -inf lambda2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))) (taylor -inf lambda2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor -inf lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor -inf lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor -inf lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor -inf lambda2) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (taylor -inf lambda2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (taylor -inf lambda2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (taylor -inf lambda2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (taylor -inf lambda2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (cos (+ lambda1 (* -1 lambda2))) (taylor -inf lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (+ lambda1 (* -1 lambda2))) (taylor -inf lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (+ lambda1 (* -1 lambda2))) (taylor -inf lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (+ lambda1 (* -1 lambda2))) (taylor -inf lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (+ lambda1 (* -1 lambda2))) (taylor -inf lambda2) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (cos (+ lambda1 (* -1 lambda2))) (taylor -inf lambda2) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (cos (+ lambda1 (* -1 lambda2))) (taylor -inf lambda2) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (cos (+ lambda1 (* -1 lambda2))) (taylor -inf lambda2) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor 0 R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor 0 R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor 0 R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor 0 R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor 0 R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor 0 R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor 0 R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor 0 R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor 0 R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor 0 R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor 0 R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor 0 R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor inf R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor inf R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor inf R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor inf R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor inf R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor inf R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor inf R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor inf R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor inf R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor inf R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor inf R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor inf R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor -inf R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor -inf R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor -inf R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))))))) (taylor -inf R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor -inf R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor -inf R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor -inf R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))))) (taylor -inf R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor -inf R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor -inf R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor -inf R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2))))))))) (taylor -inf R) (#s(alt (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (patch (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
Calls

15 calls:

TimeVariablePointExpression
144.0ms
lambda2
@inf
((/ (- lambda1 lambda2) 2) (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (* 1/2 (- lambda1 lambda2))) (* 2 (* 1/2 (- phi1 phi2))) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (/ (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) 2))))) (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)))))) (/ 1 (/ 2 (- phi1 phi2))) (+ (pow (sin (/ 1 (/ 2 (- phi1 phi2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (sin (/ (- lambda1 lambda2) 2)) (- 1 (+ (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos (- lambda1 lambda2)) (/ (- phi1 phi2) 2) (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (cos (- phi1 phi2)) (sin (/ 1 (/ 2 (- phi1 phi2)))) (- 1 (+ (pow (sin (/ 1 (/ 2 (- phi1 phi2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))
41.0ms
lambda1
@-inf
((/ (- lambda1 lambda2) 2) (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (* 1/2 (- lambda1 lambda2))) (* 2 (* 1/2 (- phi1 phi2))) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (/ (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) 2))))) (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)))))) (/ 1 (/ 2 (- phi1 phi2))) (+ (pow (sin (/ 1 (/ 2 (- phi1 phi2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (sin (/ (- lambda1 lambda2) 2)) (- 1 (+ (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos (- lambda1 lambda2)) (/ (- phi1 phi2) 2) (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (cos (- phi1 phi2)) (sin (/ 1 (/ 2 (- phi1 phi2)))) (- 1 (+ (pow (sin (/ 1 (/ 2 (- phi1 phi2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))
16.0ms
phi2
@-inf
((/ (- lambda1 lambda2) 2) (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (* 1/2 (- lambda1 lambda2))) (* 2 (* 1/2 (- phi1 phi2))) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (/ (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) 2))))) (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)))))) (/ 1 (/ 2 (- phi1 phi2))) (+ (pow (sin (/ 1 (/ 2 (- phi1 phi2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (sin (/ (- lambda1 lambda2) 2)) (- 1 (+ (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos (- lambda1 lambda2)) (/ (- phi1 phi2) 2) (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (cos (- phi1 phi2)) (sin (/ 1 (/ 2 (- phi1 phi2)))) (- 1 (+ (pow (sin (/ 1 (/ 2 (- phi1 phi2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))
15.0ms
phi1
@-inf
((/ (- lambda1 lambda2) 2) (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (* 1/2 (- lambda1 lambda2))) (* 2 (* 1/2 (- phi1 phi2))) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (/ (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) 2))))) (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)))))) (/ 1 (/ 2 (- phi1 phi2))) (+ (pow (sin (/ 1 (/ 2 (- phi1 phi2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (sin (/ (- lambda1 lambda2) 2)) (- 1 (+ (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos (- lambda1 lambda2)) (/ (- phi1 phi2) 2) (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (cos (- phi1 phi2)) (sin (/ 1 (/ 2 (- phi1 phi2)))) (- 1 (+ (pow (sin (/ 1 (/ 2 (- phi1 phi2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))
14.0ms
lambda2
@-inf
((/ (- lambda1 lambda2) 2) (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (* 2 (* 1/2 (- lambda1 lambda2))) (* 2 (* 1/2 (- phi1 phi2))) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (/ (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) 2))))) (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)) (* R (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)))))) (/ 1 (/ 2 (- phi1 phi2))) (+ (pow (sin (/ 1 (/ 2 (- phi1 phi2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (sin (/ (- lambda1 lambda2) 2)) (- 1 (+ (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos (- lambda1 lambda2)) (/ (- phi1 phi2) 2) (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (cos (- phi1 phi2)) (sin (/ 1 (/ 2 (- phi1 phi2)))) (- 1 (+ (pow (sin (/ 1 (/ 2 (- phi1 phi2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))

simplify393.0ms (0.9%)

Memory
-16.2MiB live, 410.1MiB allocated
Algorithm
1×egg-herbie
Rules
6 780×lower-fma.f64
6 780×lower-fma.f32
6 584×lower-*.f64
6 584×lower-*.f32
5 198×lower-+.f64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0127134599
1434134261
0839532709
Stop Event
1×iter limit
1×node limit
Counts
996 → 990
Calls
Call 1
Inputs
(* -1/2 lambda2)
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* -1 lambda2)
(- lambda1 lambda2)
(- lambda1 lambda2)
(- lambda1 lambda2)
(* 1/2 (cos (neg lambda2)))
(+ (* -1/2 (* lambda1 (sin (neg lambda2)))) (* 1/2 (cos (neg lambda2))))
(+ (* 1/2 (cos (neg lambda2))) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/4 (* lambda1 (cos (neg lambda2)))))))
(+ (* 1/2 (cos (neg lambda2))) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* lambda1 (+ (* -1/4 (cos (neg lambda2))) (* 1/12 (* lambda1 (sin (neg lambda2)))))))))
(- 1/2 (* 1/2 (cos (neg lambda2))))
(- (+ 1/2 (* 1/2 (* lambda1 (sin (neg lambda2))))) (* 1/2 (cos (neg lambda2))))
(- (+ 1/2 (* lambda1 (- (* 1/4 (* lambda1 (cos (neg lambda2)))) (* -1/2 (sin (neg lambda2)))))) (* 1/2 (cos (neg lambda2))))
(- (+ 1/2 (* lambda1 (- (* lambda1 (- (* -1/12 (* lambda1 (sin (neg lambda2)))) (* -1/4 (cos (neg lambda2))))) (* -1/2 (sin (neg lambda2)))))) (* 1/2 (cos (neg lambda2))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1 (+ (cos (- phi1 phi2)) (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))) (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1 (+ (cos (- phi1 phi2)) (* lambda1 (- (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/2 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1 (+ (cos (- phi1 phi2)) (* lambda1 (- (* lambda1 (- (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/4 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))) (* 1/2 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))) (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (cos (- phi1 phi2))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))) (+ (* 1/2 (cos (- phi1 phi2))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))) (+ (* 1/2 (cos (- phi1 phi2))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* -1/2 lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(- (+ 1 (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(- (+ 1 (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2)))))))
(- (+ 1/2 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2)))))))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda1 (- (* -1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2)))))))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda1 (- (* lambda1 (- (* 1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2)))))))
(cos (neg lambda2))
(+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))
(+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))
(+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))
(cos (neg lambda2))
(+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))
(+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))
(+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))
(+ 1/2 (* -1/2 (cos (neg lambda2))))
(+ 1/2 (+ (* -1/2 (cos (neg lambda2))) (* 1/2 (* lambda1 (sin (neg lambda2))))))
(+ 1/2 (+ (* -1/2 (cos (neg lambda2))) (* lambda1 (+ (* 1/4 (* lambda1 (cos (neg lambda2)))) (* 1/2 (sin (neg lambda2)))))))
(+ 1/2 (+ (* -1/2 (cos (neg lambda2))) (* lambda1 (+ (* 1/2 (sin (neg lambda2))) (* lambda1 (+ (* -1/12 (* lambda1 (sin (neg lambda2)))) (* 1/4 (cos (neg lambda2)))))))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(* 1/2 lambda1)
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
lambda1
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(* 1/2 (cos (- lambda1 lambda2)))
(* 1/2 (cos (- lambda1 lambda2)))
(* 1/2 (cos (- lambda1 lambda2)))
(* 1/2 (cos (- lambda1 lambda2)))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(* 1/2 lambda1)
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
lambda1
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(* 1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))
(* 1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))
(* 1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))
(* 1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos (neg (+ lambda2 (* -1 lambda1))))
(+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))
(+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))
(+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))
(+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
phi1
(+ phi1 (* -1 phi2))
(+ phi1 (* -1 phi2))
(+ phi1 (* -1 phi2))
(+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(- (+ 1 (cos phi1)) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1)))))
(- (+ 1 (+ (cos phi1) (* -1 (* phi2 (+ (* -1 (sin phi1)) (* -1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1)))))))))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1)))))
(- (+ 1 (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1/2 (cos phi1)) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1))))))) (+ (* -1 (sin phi1)) (* -1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1)))))))))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1)))))
(- (+ 1 (+ (cos phi1) (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/6 (sin phi1)) (* -1/6 (sin (neg phi1)))))) (* 1/6 (sin phi1))))) (* -1/2 (cos phi1))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1))))))) (+ (* -1 (sin phi1)) (* -1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1)))))))))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))
(+ 1/2 (+ (* -1 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/2 (cos phi1)) (* 1/2 (* phi2 (sin phi1))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/4 (cos phi1)) (* 1/2 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/4 (cos phi1)) (+ (* -1/12 (* phi2 (sin phi1))) (* 1/2 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 1/2 phi1)
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(- (+ 1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(- (+ 1 (* phi2 (- (* -1 (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(- (+ 1 (* phi2 (- (* phi2 (- (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 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))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))
(pow (sin (* 1/2 phi1)) 2)
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (sin (* 1/2 phi1)) 2))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (pow (sin (* 1/2 phi1)) 2))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))) (pow (sin (* 1/2 phi1)) 2))
(- (+ 1/2 (* 1/2 (cos phi1))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(- (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* phi2 (sin phi1))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(- (+ 1/2 (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (- (* -1/4 (cos phi1)) (* -1/2 (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(- (+ 1/2 (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (- (+ (* -1/4 (cos phi1)) (* -1/12 (* phi2 (sin phi1)))) (* -1/2 (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(* 1/2 phi1)
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(cos phi1)
(+ (cos phi1) (* phi2 (sin phi1)))
(+ (cos phi1) (* phi2 (- (* -1/2 (* phi2 (cos phi1))) (* -1 (sin phi1)))))
(+ (cos phi1) (* phi2 (- (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))) (* -1 (sin phi1)))))
(sin (* 1/2 phi1))
(+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1)))))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))))))
(- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(- (+ 1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(- (+ 1 (* phi2 (- (* -1 (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(- (+ 1 (* phi2 (- (* phi2 (- (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* -1 phi2)
(* phi2 (- (/ phi1 phi2) 1))
(* phi2 (- (/ phi1 phi2) 1))
(* phi2 (- (/ phi1 phi2) 1))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* -1/2 phi2)
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(* -1/2 phi2)
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* -1 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(- (+ 1 (cos (+ phi1 (* -1 phi2)))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2))))))
(- (+ 1 (cos (+ phi1 (* -1 phi2)))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2))))))
(- (+ 1 (cos (+ phi1 (* -1 phi2)))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2))))))
(- (+ 1 (cos (+ phi1 (* -1 phi2)))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (+ phi1 (* -1 phi2)))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (+ phi1 (* -1 phi2)))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (+ phi1 (* -1 phi2)))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (+ phi1 (* -1 phi2)))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))))))
(* -1/2 phi2)
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(* -1/2 phi2)
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(cos (+ phi1 (* -1 phi2)))
(cos (+ phi1 (* -1 phi2)))
(cos (+ phi1 (* -1 phi2)))
(cos (+ phi1 (* -1 phi2)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* -1 phi2)
(- phi1 phi2)
(- phi1 phi2)
(- phi1 phi2)
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(- (+ 1 (cos (neg phi2))) (* 2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1 (+ (cos (neg phi2)) (* -1 (* phi1 (+ (sin (neg phi2)) (* -1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2)))))))))) (* 2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1 (+ (cos (neg phi2)) (* phi1 (- (* phi1 (- (* -1/2 (cos (neg phi2))) (* -1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))) (+ (sin (neg phi2)) (* -1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2)))))))))) (* 2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1 (+ (cos (neg phi2)) (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/6 (sin phi2)) (* 1/6 (sin phi2))))) (* -1/6 (sin (neg phi2)))))) (* -1/2 (cos (neg phi2)))) (* -1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))) (+ (sin (neg phi2)) (* -1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2)))))))))) (* 2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(+ 1/2 (+ (* -1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))
(+ 1/2 (+ (* -1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* -1/2 (* phi1 (sin (neg phi2)))) (* 1/2 (cos (neg phi2))))))
(+ 1/2 (+ (* -1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/2 (cos (neg phi2))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/4 (cos (neg phi2))) (* 1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))))))
(+ 1/2 (+ (* -1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/2 (cos (neg phi2))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/4 (cos (neg phi2))) (+ (* 1/12 (* phi1 (sin (neg phi2)))) (* 1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* -1/2 phi2)
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(- (+ 1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(- (+ 1 (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(- (+ 1 (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* -1/2 (* (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 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))))) (* -1/2 (/ (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))))))
(pow (sin (* 1/2 phi2)) 2)
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (pow (sin (* 1/2 phi2)) 2))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))))))) (pow (sin (* 1/2 phi2)) 2))
(- (+ 1/2 (* 1/2 (cos (neg phi2)))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(- (+ 1/2 (+ (* -1/2 (* phi1 (sin (neg phi2)))) (* 1/2 (cos (neg phi2))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(- (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (- (* -1/4 (cos (neg phi2))) (* -1/2 (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(- (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (- (+ (* -1/4 (cos (neg phi2))) (* 1/12 (* phi1 (sin (neg phi2))))) (* -1/2 (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(* -1/2 phi2)
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(cos (neg phi2))
(+ (cos (neg phi2)) (* -1 (* phi1 (sin (neg phi2)))))
(+ (cos (neg phi2)) (* phi1 (- (* -1/2 (* phi1 (cos (neg phi2)))) (sin (neg phi2)))))
(+ (cos (neg phi2)) (* phi1 (- (* phi1 (+ (* -1/2 (cos (neg phi2))) (* 1/6 (* phi1 (sin (neg phi2)))))) (sin (neg phi2)))))
(sin (* -1/2 phi2))
(+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2))))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))
(- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(- (+ 1 (* -1 (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(- (+ 1 (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(- (+ 1 (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))) (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 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))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(* 1/2 phi1)
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(cos (- phi1 phi2))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
phi1
(* -1 (* phi1 (- (/ phi2 phi1) 1)))
(* -1 (* phi1 (- (/ phi2 phi1) 1)))
(* -1 (* phi1 (- (/ phi2 phi1) 1)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(- (+ 1 (cos (neg (+ phi2 (* -1 phi1))))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))
(- (+ 1 (cos (neg (+ phi2 (* -1 phi1))))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))
(- (+ 1 (cos (neg (+ phi2 (* -1 phi1))))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))
(- (+ 1 (cos (neg (+ phi2 (* -1 phi1))))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (neg (+ phi2 (* -1 phi1))))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (neg (+ phi2 (* -1 phi1))))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (neg (+ phi2 (* -1 phi1))))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (neg (+ phi2 (* -1 phi1))))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1)))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1)))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1)))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1)))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1)))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1)))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(* 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)))
(cos (neg (+ phi2 (* -1 phi1))))
(cos (neg (+ phi2 (* -1 phi1))))
(cos (neg (+ phi2 (* -1 phi1))))
(cos (neg (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(* 1/2 lambda1)
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
lambda1
(+ lambda1 (* -1 lambda2))
(+ lambda1 (* -1 lambda2))
(+ lambda1 (* -1 lambda2))
(* 1/2 (cos lambda1))
(+ (* 1/2 (cos lambda1)) (* 1/2 (* lambda2 (sin lambda1))))
(+ (* 1/2 (cos lambda1)) (* lambda2 (+ (* -1/4 (* lambda2 (cos lambda1))) (* 1/2 (sin lambda1)))))
(+ (* 1/2 (cos lambda1)) (* lambda2 (+ (* 1/2 (sin lambda1)) (* lambda2 (+ (* -1/4 (cos lambda1)) (* -1/12 (* lambda2 (sin lambda1))))))))
(- 1/2 (* 1/2 (cos lambda1)))
(- (+ 1/2 (* -1/2 (* lambda2 (sin lambda1)))) (* 1/2 (cos lambda1)))
(- (+ 1/2 (* lambda2 (- (* 1/4 (* lambda2 (cos lambda1))) (* 1/2 (sin lambda1))))) (* 1/2 (cos lambda1)))
(- (+ 1/2 (* lambda2 (- (* lambda2 (- (* 1/12 (* lambda2 (sin lambda1))) (* -1/4 (cos lambda1)))) (* 1/2 (sin lambda1))))) (* 1/2 (cos lambda1)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1 (+ (cos (- phi1 phi2)) (* 1/2 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))) (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1 (+ (cos (- phi1 phi2)) (* lambda2 (- (* -1/4 (* lambda2 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* -1/2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1 (+ (cos (- phi1 phi2)) (* lambda2 (- (* lambda2 (- (* -1/12 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/4 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))) (* -1/2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))) (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))) (+ (* 1/2 (cos (- phi1 phi2))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))) (+ (* 1/2 (cos (- phi1 phi2))) (* lambda2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(sin (* 1/2 lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(- (+ 1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(- (+ 1 (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(- (+ 1 (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda2 (- (* -1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda2 (- (* lambda2 (- (* -1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))))) (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))
(cos lambda1)
(+ (cos lambda1) (* lambda2 (sin lambda1)))
(+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))
(+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))
(cos lambda1)
(+ (cos lambda1) (* lambda2 (sin lambda1)))
(+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))
(+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))
(+ 1/2 (* -1/2 (cos lambda1)))
(+ 1/2 (+ (* -1/2 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))
(+ 1/2 (+ (* -1/2 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/4 (* lambda2 (cos lambda1)))))))
(+ 1/2 (+ (* -1/2 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* lambda2 (+ (* 1/12 (* lambda2 (sin lambda1))) (* 1/4 (cos lambda1))))))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- (+ 1 (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(* -1/2 lambda2)
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* -1 lambda2)
(* lambda2 (- (/ lambda1 lambda2) 1))
(* lambda2 (- (/ lambda1 lambda2) 1))
(* lambda2 (- (/ lambda1 lambda2) 1))
(* 1/2 (cos (- lambda1 lambda2)))
(* 1/2 (cos (- lambda1 lambda2)))
(* 1/2 (cos (- lambda1 lambda2)))
(* 1/2 (cos (- lambda1 lambda2)))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(* -1/2 lambda2)
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* -1 lambda2)
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(* 1/2 (cos (+ lambda1 (* -1 lambda2))))
(* 1/2 (cos (+ lambda1 (* -1 lambda2))))
(* 1/2 (cos (+ lambda1 (* -1 lambda2))))
(* 1/2 (cos (+ lambda1 (* -1 lambda2))))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))))))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))
(+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))
(+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))
(+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
Outputs
(* -1/2 lambda2)
(*.f64 lambda2 #s(literal -1/2 binary64))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(fma.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) lambda1 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64)) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) lambda1 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) lambda1 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(fma.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) lambda1 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64)) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) lambda1 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) lambda1 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* -1 lambda2)
(neg.f64 lambda2)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(* 1/2 (cos (neg lambda2)))
(*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64))
(+ (* -1/2 (* lambda1 (sin (neg lambda2)))) (* 1/2 (cos (neg lambda2))))
(fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64)))
(+ (* 1/2 (cos (neg lambda2))) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/4 (* lambda1 (cos (neg lambda2)))))))
(fma.f64 (fma.f64 (neg.f64 (sin.f64 lambda2)) #s(literal -1/2 binary64) (*.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/4 binary64))) lambda1 (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64)))
(+ (* 1/2 (cos (neg lambda2))) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* lambda1 (+ (* -1/4 (cos (neg lambda2))) (* 1/12 (* lambda1 (sin (neg lambda2)))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/12 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) #s(literal -1/4 binary64))) lambda1 (*.f64 (neg.f64 (sin.f64 lambda2)) #s(literal -1/2 binary64))) lambda1 (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (neg lambda2))))
(fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- (+ 1/2 (* 1/2 (* lambda1 (sin (neg lambda2))))) (* 1/2 (cos (neg lambda2))))
(-.f64 (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (neg.f64 (sin.f64 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64)))
(- (+ 1/2 (* lambda1 (- (* 1/4 (* lambda1 (cos (neg lambda2)))) (* -1/2 (sin (neg lambda2)))))) (* 1/2 (cos (neg lambda2))))
(+.f64 (fma.f64 (fma.f64 (sin.f64 lambda2) #s(literal -1/2 binary64) (*.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal 1/4 binary64))) lambda1 (*.f64 (cos.f64 lambda2) #s(literal -1/2 binary64))) #s(literal 1/2 binary64))
(- (+ 1/2 (* lambda1 (- (* lambda1 (- (* -1/12 (* lambda1 (sin (neg lambda2)))) (* -1/4 (cos (neg lambda2))))) (* -1/2 (sin (neg lambda2)))))) (* 1/2 (cos (neg lambda2))))
(+.f64 (fma.f64 (fma.f64 (sin.f64 lambda2) #s(literal -1/2 binary64) (*.f64 (fma.f64 (*.f64 #s(literal -1/12 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) #s(literal 1/4 binary64))) lambda1)) lambda1 (*.f64 (cos.f64 lambda2) #s(literal -1/2 binary64))) #s(literal 1/2 binary64))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) lambda1 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64)) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) lambda1 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) lambda1 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1 (+ (cos (- phi1 phi2)) (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))) (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (+.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (neg.f64 (sin.f64 lambda2))) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1 (+ (cos (- phi1 phi2)) (* lambda1 (- (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/2 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(+.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) lambda1) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 lambda2))) (*.f64 (*.f64 (sin.f64 lambda2) #s(literal -1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) lambda1 (cos.f64 (-.f64 phi2 phi1))) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(- (+ 1 (+ (cos (- phi1 phi2)) (* lambda1 (- (* lambda1 (- (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/4 (* (cos (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))) (* 1/2 (* (sin (neg lambda2)) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (* (+ 1/2 (* -1/2 (cos (neg lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (+.f64 (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/12 binary64) lambda1) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (neg.f64 (sin.f64 lambda2))) (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (cos.f64 lambda2)) #s(literal -1/4 binary64))) lambda1 (*.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (neg.f64 (sin.f64 lambda2))) #s(literal -1/2 binary64))) lambda1 (cos.f64 (-.f64 phi2 phi1))) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))) (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (cos (- phi1 phi2))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1))) (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))) (+ (* 1/2 (cos (- phi1 phi2))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) lambda1) (*.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)))) lambda1 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))) (+ (* 1/2 (cos (- phi1 phi2))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1))) (fma.f64 (fma.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/12 binary64) lambda1) (*.f64 (*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))) lambda1)) lambda1 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) lambda1 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64)) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) lambda1 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) lambda1 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sin (* -1/2 lambda2))
(sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) lambda1 (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 (fma.f64 (neg.f64 (*.f64 lambda1 (cos.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 1 binary64)) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 (fma.f64 (neg.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))) lambda1 #s(literal 1 binary64)) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 (fma.f64 (fma.f64 (neg.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64)) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) lambda1 (*.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) lambda1 #s(literal 1 binary64)) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) #s(literal -1/4 binary64))) lambda1) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))) lambda1 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) #s(literal -1/4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (*.f64 (*.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) #s(literal -1/4 binary64))))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) #s(literal -1/2 binary64))) lambda1) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))) lambda1 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))) lambda1 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))
(- (+ 1/2 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2)))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1))) (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda1 (- (* -1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2)))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) lambda1) (*.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)))) lambda1 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda1 (- (* lambda1 (- (* 1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2)))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1))) (fma.f64 (fma.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/12 binary64) lambda1) (*.f64 (*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))) lambda1)) lambda1 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(cos (neg lambda2))
(cos.f64 lambda2)
(+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))
(fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))
(+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 lambda2) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))
(+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) #s(literal -1/2 binary64))) lambda1 (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))
(cos (neg lambda2))
(cos.f64 lambda2)
(+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))
(fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))
(+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 lambda2) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))
(+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) #s(literal -1/2 binary64))) lambda1 (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))
(+ 1/2 (* -1/2 (cos (neg lambda2))))
(fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (+ (* -1/2 (cos (neg lambda2))) (* 1/2 (* lambda1 (sin (neg lambda2))))))
(-.f64 (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (neg.f64 (sin.f64 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (neg lambda2))) (* lambda1 (+ (* 1/4 (* lambda1 (cos (neg lambda2)))) (* 1/2 (sin (neg lambda2)))))))
(+.f64 (fma.f64 (fma.f64 (sin.f64 lambda2) #s(literal -1/2 binary64) (*.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal 1/4 binary64))) lambda1 (*.f64 (cos.f64 lambda2) #s(literal -1/2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (+ (* -1/2 (cos (neg lambda2))) (* lambda1 (+ (* 1/2 (sin (neg lambda2))) (* lambda1 (+ (* -1/12 (* lambda1 (sin (neg lambda2)))) (* 1/4 (cos (neg lambda2)))))))))
(+.f64 (fma.f64 (fma.f64 (sin.f64 lambda2) #s(literal -1/2 binary64) (*.f64 (fma.f64 (*.f64 #s(literal -1/12 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) #s(literal 1/4 binary64))) lambda1)) lambda1 (*.f64 (cos.f64 lambda2) #s(literal -1/2 binary64))) #s(literal 1/2 binary64))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 (fma.f64 (neg.f64 (*.f64 lambda1 (cos.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 1 binary64)) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 (fma.f64 (neg.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))) lambda1 #s(literal 1 binary64)) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 (fma.f64 (fma.f64 (neg.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64)) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))) lambda1 (*.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) lambda1 #s(literal 1 binary64)) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(* 1/2 lambda1)
(*.f64 lambda1 #s(literal 1/2 binary64))
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
lambda1
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)
(* 1/2 (cos (- lambda1 lambda2)))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(* 1/2 (cos (- lambda1 lambda2)))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(* 1/2 (cos (- lambda1 lambda2)))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(* 1/2 (cos (- lambda1 lambda2)))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(* 1/2 lambda1)
(*.f64 lambda1 #s(literal 1/2 binary64))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(*.f64 (neg.f64 lambda1) (fma.f64 (/.f64 lambda2 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(*.f64 (neg.f64 lambda1) (fma.f64 (/.f64 lambda2 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(*.f64 (neg.f64 lambda1) (fma.f64 (/.f64 lambda2 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
lambda1
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(fma.f64 (neg.f64 lambda1) (/.f64 lambda2 lambda1) lambda1)
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(fma.f64 (neg.f64 lambda1) (/.f64 lambda2 lambda1) lambda1)
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(fma.f64 (neg.f64 lambda1) (/.f64 lambda2 lambda1) lambda1)
(* 1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(* 1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(* 1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(* 1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))
(fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (neg.f64 phi2) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi2 (*.f64 (neg.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64) (fma.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64))))) phi2 (*.f64 (neg.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))
(fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (neg.f64 phi2) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi2 (*.f64 (neg.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64) (fma.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64))))) phi2 (*.f64 (neg.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
phi1
(+ phi1 (* -1 phi2))
(-.f64 phi1 phi2)
(+ phi1 (* -1 phi2))
(-.f64 phi1 phi2)
(+ phi1 (* -1 phi2))
(-.f64 phi1 phi2)
(+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))
(fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (neg.f64 phi2) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi2 (*.f64 (neg.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64) (fma.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64))))) phi2 (*.f64 (neg.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (cos phi1)) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1)))))
(-.f64 (+.f64 #s(literal 1 binary64) (cos.f64 phi1)) (*.f64 (+.f64 (cos.f64 phi1) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1 (+ (cos phi1) (* -1 (* phi2 (+ (* -1 (sin phi1)) (* -1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1)))))))))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1)))))
(-.f64 (-.f64 (+.f64 #s(literal 1 binary64) (cos.f64 phi1)) (*.f64 (neg.f64 (fma.f64 (-.f64 (sin.f64 phi1) (sin.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (sin.f64 phi1))) phi2)) (*.f64 (+.f64 (cos.f64 phi1) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1 (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1/2 (cos phi1)) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1))))))) (+ (* -1 (sin phi1)) (* -1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1)))))))))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1)))))
(-.f64 (+.f64 (fma.f64 (fma.f64 (-.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 phi1) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) phi2 (neg.f64 (neg.f64 (fma.f64 (-.f64 (sin.f64 phi1) (sin.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (sin.f64 phi1))))) phi2 (cos.f64 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 phi1) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1 (+ (cos phi1) (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/6 (sin phi1)) (* -1/6 (sin (neg phi1)))))) (* 1/6 (sin phi1))))) (* -1/2 (cos phi1))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/2 (cos phi1)) (* -1/2 (cos (neg phi1))))))) (+ (* -1 (sin phi1)) (* -1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi1) (sin (neg phi1)))))))))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos phi1) (cos (neg phi1)))))
(-.f64 (+.f64 (fma.f64 (fma.f64 (fma.f64 (neg.f64 (fma.f64 (neg.f64 (*.f64 #s(literal -1/6 binary64) (-.f64 (sin.f64 phi1) (sin.f64 phi1)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (sin.f64 phi1) #s(literal 1/6 binary64)))) phi2 (-.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 phi1) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) phi2 (neg.f64 (neg.f64 (fma.f64 (-.f64 (sin.f64 phi1) (sin.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (sin.f64 phi1))))) phi2 (cos.f64 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 phi1) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(+ 1/2 (+ (* -1 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))
(-.f64 (fma.f64 (cos.f64 phi1) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))
(+ 1/2 (+ (* -1 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/2 (cos phi1)) (* 1/2 (* phi2 (sin phi1))))))
(-.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))
(+ 1/2 (+ (* -1 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/4 (cos phi1)) (* 1/2 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (cos.f64 phi1))) phi2 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64))) phi2 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))
(+ 1/2 (+ (* -1 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/4 (cos phi1)) (+ (* -1/12 (* phi2 (sin phi1))) (* 1/2 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (fma.f64 (*.f64 #s(literal -1/12 binary64) phi2) (sin.f64 phi1) (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) phi2 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64))) phi2 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 1/2 phi1)
(*.f64 phi1 #s(literal 1/2 binary64))
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 phi2 #s(literal -1/2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 phi2 #s(literal -1/2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 phi2 #s(literal -1/2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))
(+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))
(fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (neg.f64 phi2) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi2 (*.f64 (neg.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64) (fma.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64))))) phi2 (*.f64 (neg.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(-.f64 (fma.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* phi2 (- (* -1 (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(-.f64 (fma.f64 (fma.f64 (neg.f64 phi2) (fma.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 #s(literal 1 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* phi2 (- (* phi2 (- (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(-.f64 (fma.f64 (fma.f64 (neg.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) phi2 (fma.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))))) phi2 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 #s(literal 1 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))
(fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))
(fma.f64 (fma.f64 (*.f64 phi2 (*.f64 (-.f64 (fma.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #s(literal 1/4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) phi2 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 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))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 (fma.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #s(literal 1/4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 (*.f64 (fma.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (-.f64 (fma.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #s(literal 1/4 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) phi2) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))) phi2 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) phi2 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(pow (sin (* 1/2 phi1)) 2)
(pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (pow (sin (* 1/2 phi1)) 2))
(fma.f64 (neg.f64 phi2) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (pow (sin (* 1/2 phi1)) 2))
(fma.f64 (fma.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) phi2 (*.f64 (neg.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))))))) (pow (sin (* 1/2 phi1)) 2))
(fma.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64) (fma.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) phi2 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)))) phi2 (*.f64 (neg.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(- (+ 1/2 (* 1/2 (cos phi1))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(-.f64 (fma.f64 (cos.f64 phi1) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))
(- (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* phi2 (sin phi1))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(-.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))
(- (+ 1/2 (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (- (* -1/4 (cos phi1)) (* -1/2 (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (cos.f64 phi1))) phi2 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64))) phi2 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))
(- (+ 1/2 (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (- (+ (* -1/4 (cos phi1)) (* -1/12 (* phi2 (sin phi1)))) (* -1/2 (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (fma.f64 (*.f64 #s(literal -1/12 binary64) phi2) (sin.f64 phi1) (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) phi2 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64))) phi2 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))
(* 1/2 phi1)
(*.f64 phi1 #s(literal 1/2 binary64))
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 phi2 #s(literal -1/2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 phi2 #s(literal -1/2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 phi2 #s(literal -1/2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))
(cos phi1)
(cos.f64 phi1)
(+ (cos phi1) (* phi2 (sin phi1)))
(fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1))
(+ (cos phi1) (* phi2 (- (* -1/2 (* phi2 (cos phi1))) (* -1 (sin phi1)))))
(fma.f64 (fma.f64 (*.f64 phi2 (cos.f64 phi1)) #s(literal -1/2 binary64) (sin.f64 phi1)) phi2 (cos.f64 phi1))
(+ (cos phi1) (* phi2 (- (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))) (* -1 (sin phi1)))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (sin.f64 phi1) phi2) #s(literal -1/6 binary64) (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64))) phi2 (sin.f64 phi1)) phi2 (cos.f64 phi1))
(sin (* 1/2 phi1))
(sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))
(fma.f64 (*.f64 phi2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1)))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) phi2 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) phi2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) phi2 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(-.f64 (fma.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* phi2 (- (* -1 (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(-.f64 (fma.f64 (fma.f64 (neg.f64 phi2) (fma.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 #s(literal 1 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* phi2 (- (* phi2 (- (* -1 (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))))) (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(-.f64 (fma.f64 (fma.f64 (neg.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) phi2 (fma.f64 (*.f64 (cos.f64 phi1) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))))) phi2 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 #s(literal 1 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* -1 phi2)
(neg.f64 phi2)
(* phi2 (- (/ phi1 phi2) 1))
(*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2)
(* phi2 (- (/ phi1 phi2) 1))
(*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2)
(* phi2 (- (/ phi1 phi2) 1))
(*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2)
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* -1/2 phi2)
(*.f64 phi2 #s(literal -1/2 binary64))
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2)
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2)
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2)
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(* -1/2 phi2)
(*.f64 phi2 #s(literal -1/2 binary64))
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2)
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2)
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2)
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi2 phi1))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi2 phi1))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi2 phi1))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi2 phi1))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* -1 phi2)
(neg.f64 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(*.f64 (neg.f64 phi2) (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(*.f64 (neg.f64 phi2) (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(*.f64 (neg.f64 phi2) (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(- (+ 1 (cos (+ phi1 (* -1 phi2)))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2))))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1 (cos (+ phi1 (* -1 phi2)))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2))))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1 (cos (+ phi1 (* -1 phi2)))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2))))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1 (cos (+ phi1 (* -1 phi2)))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2))))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (+ phi1 (* -1 phi2)))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (+ phi1 (* -1 phi2)))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (+ phi1 (* -1 phi2)))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (+ phi1 (* -1 phi2)))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (neg (+ phi1 (* -1 phi2)))) (cos (- phi1 (* -1 phi2)))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (+ phi1 (* -1 phi2))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* -1/2 phi2)
(*.f64 phi2 #s(literal -1/2 binary64))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(*.f64 (neg.f64 phi2) (fma.f64 (/.f64 phi1 phi2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(*.f64 (neg.f64 phi2) (fma.f64 (/.f64 phi1 phi2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(*.f64 (neg.f64 phi2) (fma.f64 (/.f64 phi1 phi2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(* -1/2 phi2)
(*.f64 phi2 #s(literal -1/2 binary64))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(*.f64 (neg.f64 phi2) (fma.f64 (/.f64 phi1 phi2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(*.f64 (neg.f64 phi2) (fma.f64 (/.f64 phi1 phi2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(*.f64 (neg.f64 phi2) (fma.f64 (/.f64 phi1 phi2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(cos (+ phi1 (* -1 phi2)))
(cos.f64 (-.f64 phi2 phi1))
(cos (+ phi1 (* -1 phi2)))
(cos.f64 (-.f64 phi2 phi1))
(cos (+ phi1 (* -1 phi2)))
(cos.f64 (-.f64 phi2 phi1))
(cos (+ phi1 (* -1 phi2)))
(cos.f64 (-.f64 phi2 phi1))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))
(fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(fma.f64 (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi1 (*.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) phi1 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64))))) phi1 (*.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) phi1 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))
(fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(fma.f64 (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi1 (*.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) phi1 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64))))) phi1 (*.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) phi1 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* -1 phi2)
(neg.f64 phi2)
(- phi1 phi2)
(-.f64 phi1 phi2)
(- phi1 phi2)
(-.f64 phi1 phi2)
(- phi1 phi2)
(-.f64 phi1 phi2)
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))
(fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) phi1) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi1 (*.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) phi1 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64) (fma.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64)) phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64))))) phi1 (*.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) phi1 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (cos (neg phi2))) (* 2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))
(+.f64 (+.f64 #s(literal 1 binary64) (cos.f64 phi2)) (*.f64 #s(literal -2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))
(- (+ 1 (+ (cos (neg phi2)) (* -1 (* phi1 (+ (sin (neg phi2)) (* -1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2)))))))))) (* 2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (+.f64 (fma.f64 (fma.f64 #s(literal 0 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (sin.f64 phi2)) phi1 (cos.f64 phi2)) #s(literal 1 binary64)) (*.f64 (*.f64 #s(literal 2 binary64) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1 (+ (cos (neg phi2)) (* phi1 (- (* phi1 (- (* -1/2 (cos (neg phi2))) (* -1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))) (+ (sin (neg phi2)) (* -1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2)))))))))) (* 2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (+.f64 (fma.f64 (fma.f64 (fma.f64 (cos.f64 phi2) #s(literal -1/2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) phi1 (fma.f64 #s(literal 0 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (sin.f64 phi2))) phi1 (cos.f64 phi2)) #s(literal 1 binary64)) (*.f64 (*.f64 #s(literal 2 binary64) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1 (+ (cos (neg phi2)) (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (* -1/6 (sin phi2)) (* 1/6 (sin phi2))))) (* -1/6 (sin (neg phi2)))))) (* -1/2 (cos (neg phi2)))) (* -1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))) (+ (sin (neg phi2)) (* -1 (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (sin phi2)))))))))) (* 2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (+.f64 (fma.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal 0 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (sin.f64 phi2) #s(literal -1/6 binary64)))) (neg.f64 phi1) (fma.f64 (cos.f64 phi2) #s(literal -1/2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))) phi1 (fma.f64 #s(literal 0 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (sin.f64 phi2))) phi1 (cos.f64 phi2)) #s(literal 1 binary64)) (*.f64 (*.f64 #s(literal 2 binary64) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(+ 1/2 (+ (* -1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/2 (cos (neg phi2)))))
(-.f64 (fma.f64 (cos.f64 phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))
(+ 1/2 (+ (* -1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* -1/2 (* phi1 (sin (neg phi2)))) (* 1/2 (cos (neg phi2))))))
(-.f64 (+.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))
(+ 1/2 (+ (* -1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/2 (cos (neg phi2))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/4 (cos (neg phi2))) (* 1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (cos.f64 phi2))) phi1 (neg.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 phi2)))) phi1 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))
(+ 1/2 (+ (* -1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/2 (cos (neg phi2))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/4 (cos (neg phi2))) (+ (* 1/12 (* phi1 (sin (neg phi2)))) (* 1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi2) (fma.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 #s(literal 1/12 binary64) phi1) (neg.f64 (sin.f64 phi2))))) phi1 (neg.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 phi2)))) phi1 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* -1/2 phi2)
(*.f64 phi2 #s(literal -1/2 binary64))
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 phi2 #s(literal -1/2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 phi2 #s(literal -1/2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 phi2 #s(literal -1/2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))
(fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) phi1) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi1 (*.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) phi1 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64) (fma.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64)) phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64))))) phi1 (*.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) phi1 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(-.f64 (fma.f64 (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(-.f64 (fma.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (neg.f64 phi1) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) phi1 #s(literal 1 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(-.f64 (fma.f64 (fma.f64 (neg.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) phi1 (fma.f64 (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))))) phi1 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) phi1 #s(literal 1 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* -1/2 (* (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))
(fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))))
(fma.f64 (fma.f64 (*.f64 phi1 (*.f64 (-.f64 (fma.f64 (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #s(literal 1/4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) phi1 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 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))))) (* -1/2 (/ (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))))))
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 (fma.f64 (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #s(literal 1/4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (*.f64 (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (-.f64 (fma.f64 (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #s(literal 1/4 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) phi1) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))) phi1 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) phi1 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(pow (sin (* 1/2 phi2)) 2)
(pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (pow (sin (* 1/2 phi2)) 2))
(fma.f64 (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))))) (pow (sin (* 1/2 phi2)) 2))
(fma.f64 (fma.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) phi1 (*.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) phi1 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))))))))) (pow (sin (* 1/2 phi2)) 2))
(fma.f64 (fma.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) phi1 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)))) phi1 (*.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) phi1 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(- (+ 1/2 (* 1/2 (cos (neg phi2)))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(-.f64 (fma.f64 (cos.f64 phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))
(- (+ 1/2 (+ (* -1/2 (* phi1 (sin (neg phi2)))) (* 1/2 (cos (neg phi2))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(-.f64 (+.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))
(- (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (- (* -1/4 (cos (neg phi2))) (* -1/2 (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (cos.f64 phi2))) phi1 (neg.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 phi2)))) phi1 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))
(- (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (- (+ (* -1/4 (cos (neg phi2))) (* 1/12 (* phi1 (sin (neg phi2))))) (* -1/2 (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi2) (fma.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 #s(literal 1/12 binary64) phi1) (neg.f64 (sin.f64 phi2))))) phi1 (neg.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 phi2)))) phi1 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))
(* -1/2 phi2)
(*.f64 phi2 #s(literal -1/2 binary64))
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 phi2 #s(literal -1/2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 phi2 #s(literal -1/2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 phi2 #s(literal -1/2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))
(cos (neg phi2))
(cos.f64 phi2)
(+ (cos (neg phi2)) (* -1 (* phi1 (sin (neg phi2)))))
(fma.f64 (sin.f64 phi2) phi1 (cos.f64 phi2))
(+ (cos (neg phi2)) (* phi1 (- (* -1/2 (* phi1 (cos (neg phi2)))) (sin (neg phi2)))))
(fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) phi1) #s(literal -1/2 binary64) (sin.f64 phi2)) phi1 (cos.f64 phi2))
(+ (cos (neg phi2)) (* phi1 (- (* phi1 (+ (* -1/2 (cos (neg phi2))) (* 1/6 (* phi1 (sin (neg phi2)))))) (sin (neg phi2)))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/6 binary64) phi1) (neg.f64 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64))) phi1 (sin.f64 phi2)) phi1 (cos.f64 phi2))
(sin (* -1/2 phi2))
(sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))
(+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))
(fma.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi1) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/48 binary64) phi1) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal -1/8 binary64))) phi1 (*.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))
(- 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* -1 (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(-.f64 (fma.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) phi1) (neg.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 1 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* phi1 (- (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(-.f64 (fma.f64 (neg.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi1 (*.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))))) phi1 #s(literal 1 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* phi1 (- (* phi1 (- (* -1 (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))))) (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2)))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(-.f64 (fma.f64 (fma.f64 (neg.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64)) phi1 (fma.f64 (*.f64 (cos.f64 phi2) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))))) phi1 (*.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64)))) (cos.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) phi1 #s(literal 1 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1)
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1)
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1)
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 1/2 phi1)
(*.f64 phi1 #s(literal 1/2 binary64))
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1)
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1)
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1)
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(* 1/2 phi1)
(*.f64 phi1 #s(literal 1/2 binary64))
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1)
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1)
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1)
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi2 phi1))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi2 phi1))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi2 phi1))
(cos (- phi1 phi2))
(cos.f64 (-.f64 phi2 phi1))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
phi1
(* -1 (* phi1 (- (/ phi2 phi1) 1)))
(fma.f64 (/.f64 phi2 phi1) (neg.f64 phi1) phi1)
(* -1 (* phi1 (- (/ phi2 phi1) 1)))
(fma.f64 (/.f64 phi2 phi1) (neg.f64 phi1) phi1)
(* -1 (* phi1 (- (/ phi2 phi1) 1)))
(fma.f64 (/.f64 phi2 phi1) (neg.f64 phi1) phi1)
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(- (+ 1 (cos (neg (+ phi2 (* -1 phi1))))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1 (cos (neg (+ phi2 (* -1 phi1))))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1 (cos (neg (+ phi2 (* -1 phi1))))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1 (cos (neg (+ phi2 (* -1 phi1))))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1))))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (neg (+ phi2 (* -1 phi1))))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (neg (+ phi2 (* -1 phi1))))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (neg (+ phi2 (* -1 phi1))))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (neg (+ phi2 (* -1 phi1))))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi2 (* -1 phi1))) (cos (- phi2 (* -1 phi1)))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1)))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1)))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1)))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (neg (+ phi2 (* -1 phi1)))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 1/2 phi1)
(*.f64 phi1 #s(literal 1/2 binary64))
(* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 phi1))
(* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 phi1))
(* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 phi1))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)
(pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(* 1/2 phi1)
(*.f64 phi1 #s(literal 1/2 binary64))
(* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 phi1))
(* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 phi1))
(* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 phi1))
(cos (neg (+ phi2 (* -1 phi1))))
(cos.f64 (-.f64 phi2 phi1))
(cos (neg (+ phi2 (* -1 phi1))))
(cos.f64 (-.f64 phi2 phi1))
(cos (neg (+ phi2 (* -1 phi1))))
(cos.f64 (-.f64 phi2 phi1))
(cos (neg (+ phi2 (* -1 phi1))))
(cos.f64 (-.f64 phi2 phi1))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64))))
(* 1/2 lambda1)
(*.f64 lambda1 #s(literal 1/2 binary64))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(fma.f64 (neg.f64 (*.f64 lambda2 (cos.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(fma.f64 (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (cos.f64 phi2)) (*.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))) lambda2 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) lambda2 (*.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))) lambda2 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(fma.f64 (neg.f64 (*.f64 lambda2 (cos.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(fma.f64 (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (cos.f64 phi2)) (*.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))) lambda2 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) lambda2 (*.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))) lambda2 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
lambda1
(+ lambda1 (* -1 lambda2))
(-.f64 lambda1 lambda2)
(+ lambda1 (* -1 lambda2))
(-.f64 lambda1 lambda2)
(+ lambda1 (* -1 lambda2))
(-.f64 lambda1 lambda2)
(* 1/2 (cos lambda1))
(*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))
(+ (* 1/2 (cos lambda1)) (* 1/2 (* lambda2 (sin lambda1))))
(*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))
(+ (* 1/2 (cos lambda1)) (* lambda2 (+ (* -1/4 (* lambda2 (cos lambda1))) (* 1/2 (sin lambda1)))))
(fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/4 binary64) (*.f64 (sin.f64 lambda1) #s(literal 1/2 binary64))) lambda2 (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))
(+ (* 1/2 (cos lambda1)) (* lambda2 (+ (* 1/2 (sin lambda1)) (* lambda2 (+ (* -1/4 (cos lambda1)) (* -1/12 (* lambda2 (sin lambda1))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (sin.f64 lambda1) lambda2) #s(literal -1/12 binary64) (*.f64 (cos.f64 lambda1) #s(literal -1/4 binary64))) lambda2 (*.f64 (sin.f64 lambda1) #s(literal 1/2 binary64))) lambda2 (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos lambda1)))
(fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- (+ 1/2 (* -1/2 (* lambda2 (sin lambda1)))) (* 1/2 (cos lambda1)))
(fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) #s(literal 1/2 binary64))
(- (+ 1/2 (* lambda2 (- (* 1/4 (* lambda2 (cos lambda1))) (* 1/2 (sin lambda1))))) (* 1/2 (cos lambda1)))
(+.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal 1/4 binary64) (*.f64 (sin.f64 lambda1) #s(literal -1/2 binary64))) lambda2 (*.f64 (cos.f64 lambda1) #s(literal -1/2 binary64))) #s(literal 1/2 binary64))
(- (+ 1/2 (* lambda2 (- (* lambda2 (- (* 1/12 (* lambda2 (sin lambda1))) (* -1/4 (cos lambda1)))) (* 1/2 (sin lambda1))))) (* 1/2 (cos lambda1)))
(+.f64 (fma.f64 (fma.f64 (fma.f64 (cos.f64 lambda1) #s(literal 1/4 binary64) (*.f64 (*.f64 (sin.f64 lambda1) lambda2) #s(literal 1/12 binary64))) lambda2 (*.f64 (sin.f64 lambda1) #s(literal -1/2 binary64))) lambda2 (*.f64 (cos.f64 lambda1) #s(literal -1/2 binary64))) #s(literal 1/2 binary64))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (neg.f64 (*.f64 lambda2 (cos.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (cos.f64 phi2)) (*.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))) lambda2 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) lambda2 (*.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))) lambda2 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1 (+ (cos (- phi1 phi2)) (* 1/2 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))))) (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (+.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (*.f64 (sin.f64 lambda1) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1 (+ (cos (- phi1 phi2)) (* lambda2 (- (* -1/4 (* lambda2 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* -1/2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(+.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) lambda2) (*.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) (*.f64 (*.f64 (sin.f64 lambda1) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64))) lambda2 (cos.f64 (-.f64 phi2 phi1))) (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))))
(- (+ 1 (+ (cos (- phi1 phi2)) (* lambda2 (- (* lambda2 (- (* -1/12 (* lambda2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))) (* 1/4 (* (cos lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))) (* -1/2 (* (sin lambda1) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))) (* (+ 1/2 (* -1/2 (cos lambda1))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(+.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/12 binary64) lambda2) (*.f64 (sin.f64 lambda1) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) (*.f64 (*.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal -1/4 binary64))) lambda2 (*.f64 (*.f64 (sin.f64 lambda1) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 1/2 binary64))) lambda2 (cos.f64 (-.f64 phi2 phi1))) (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))) (* 1/2 (cos (- phi1 phi2)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))) (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))))
(-.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (sin.f64 lambda1) (cos.f64 phi2)))) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))) (+ (* 1/2 (cos (- phi1 phi2))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) lambda2) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (*.f64 (sin.f64 lambda1) (cos.f64 phi2)))) lambda2 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))) (+ (* 1/2 (cos (- phi1 phi2))) (* lambda2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/12 binary64) lambda2) (*.f64 (*.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 lambda1) #s(literal -1/4 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) lambda2 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (*.f64 (sin.f64 lambda1) (cos.f64 phi2)))) lambda2 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (neg.f64 (*.f64 lambda2 (cos.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (cos.f64 phi2)) (*.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))) lambda2 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) lambda2 (*.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))) lambda2 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sin (* 1/2 lambda1))
(sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(fma.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) lambda2 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) lambda2) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal -1/8 binary64))) lambda2 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) lambda2 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 (fma.f64 (fma.f64 (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) lambda2 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))) lambda2 #s(literal 1 binary64)) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1 (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 (fma.f64 (fma.f64 (neg.f64 (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))))) lambda2 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))) lambda2 #s(literal 1 binary64)) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(fma.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) #s(literal -1/4 binary64))) lambda2) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))) lambda2 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) #s(literal -1/4 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (*.f64 (*.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) #s(literal -1/4 binary64))))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) lambda2) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))) lambda2 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))) lambda2 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))
(-.f64 (fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (sin.f64 lambda1) (cos.f64 phi2)))) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda2 (- (* -1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) lambda2) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 lambda1)) (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (*.f64 (sin.f64 lambda1) (cos.f64 phi2)))) lambda2 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda2 (- (* lambda2 (- (* -1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))))) (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/12 binary64) lambda2) (*.f64 (*.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 lambda1) #s(literal -1/4 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) lambda2 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (*.f64 (sin.f64 lambda1) (cos.f64 phi2)))) lambda2 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(cos lambda1)
(cos.f64 lambda1)
(+ (cos lambda1) (* lambda2 (sin lambda1)))
(fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))
(+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))
(fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))
(+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (sin.f64 lambda1) lambda2) #s(literal -1/6 binary64) (*.f64 (cos.f64 lambda1) #s(literal -1/2 binary64))) lambda2 (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))
(cos lambda1)
(cos.f64 lambda1)
(+ (cos lambda1) (* lambda2 (sin lambda1)))
(fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))
(+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))
(fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))
(+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (sin.f64 lambda1) lambda2) #s(literal -1/6 binary64) (*.f64 (cos.f64 lambda1) #s(literal -1/2 binary64))) lambda2 (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))
(+ 1/2 (* -1/2 (cos lambda1)))
(fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (+ (* -1/2 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))
(fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) #s(literal 1/2 binary64))
(+ 1/2 (+ (* -1/2 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/4 (* lambda2 (cos lambda1)))))))
(+.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal 1/4 binary64) (*.f64 (sin.f64 lambda1) #s(literal -1/2 binary64))) lambda2 (*.f64 (cos.f64 lambda1) #s(literal -1/2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (+ (* -1/2 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* lambda2 (+ (* 1/12 (* lambda2 (sin lambda1))) (* 1/4 (cos lambda1))))))))
(+.f64 (fma.f64 (fma.f64 (fma.f64 (cos.f64 lambda1) #s(literal 1/4 binary64) (*.f64 (*.f64 (sin.f64 lambda1) lambda2) #s(literal 1/12 binary64))) lambda2 (*.f64 (sin.f64 lambda1) #s(literal -1/2 binary64))) lambda2 (*.f64 (cos.f64 lambda1) #s(literal -1/2 binary64))) #s(literal 1/2 binary64))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 (fma.f64 (fma.f64 (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) lambda2 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))) lambda2 #s(literal 1 binary64)) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- (+ 1 (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 (fma.f64 (fma.f64 (neg.f64 (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))))) lambda2 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))) lambda2 #s(literal 1 binary64)) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(* -1/2 lambda2)
(*.f64 lambda2 #s(literal -1/2 binary64))
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) lambda2)
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) lambda2)
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) lambda2)
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* -1 lambda2)
(neg.f64 lambda2)
(* lambda2 (- (/ lambda1 lambda2) 1))
(*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)
(* lambda2 (- (/ lambda1 lambda2) 1))
(*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)
(* lambda2 (- (/ lambda1 lambda2) 1))
(*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)
(* 1/2 (cos (- lambda1 lambda2)))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(* 1/2 (cos (- lambda1 lambda2)))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(* 1/2 (cos (- lambda1 lambda2)))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(* 1/2 (cos (- lambda1 lambda2)))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(* -1/2 lambda2)
(*.f64 lambda2 #s(literal -1/2 binary64))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 lambda2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* -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))
(* 1/2 (cos (+ lambda1 (* -1 lambda2))))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(* 1/2 (cos (+ lambda1 (* -1 lambda2))))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(* 1/2 (cos (+ lambda1 (* -1 lambda2))))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(* 1/2 (cos (+ lambda1 (* -1 lambda2))))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1)))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda2 lambda1))
(+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (- 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (* (sqrt 1/2) (sqrt (- (+ 1 (cos (- phi1 phi2))) (* (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (+ (cos (+ phi1 phi2)) (cos (- phi2 phi1))))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(* 2 (* R (atan2 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (sqrt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (cos (- phi1 phi2)))))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))

rewrite316.0ms (0.7%)

Memory
44.8MiB live, 471.7MiB allocated
Rules
5 624×lower-fma.f32
5 616×lower-fma.f64
4 412×lower-*.f32
4 366×lower-*.f64
1 892×lower-/.f32
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0112693
0197678
1723466
25815466
09038457
Stop Event
1×iter limit
1×node limit
1×iter limit
Counts
27 → 1 084
Calls
Call 1
Inputs
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
(+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))
(+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
(cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(cos.f64 (-.f64 lambda1 lambda2))
#s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(cos.f64 (-.f64 phi1 phi2))
(sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
Outputs
(*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))
(*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))
(*.f64 (neg.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))
(*.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))
(*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(/.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 lambda2 lambda1))
(/.f64 (*.f64 (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))
(/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) (+.f64 lambda2 lambda1))
(/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))
(/.f64 (-.f64 (*.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (*.f64 lambda1 #s(literal 1/2 binary64))) (*.f64 (*.f64 lambda2 #s(literal 1/2 binary64)) (*.f64 lambda2 #s(literal 1/2 binary64)))) (fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal 1/2 binary64))))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) #s(literal 1/8 binary64)) (*.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) #s(literal 1/8 binary64))) (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (*.f64 lambda1 #s(literal 1/2 binary64)) (fma.f64 (*.f64 lambda2 #s(literal 1/2 binary64)) (*.f64 lambda2 #s(literal 1/2 binary64)) (*.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (*.f64 lambda2 #s(literal 1/2 binary64))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 lambda1 #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) lambda2)) #s(literal 4 binary64))
(/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (*.f64 #s(literal 2 binary64) (+.f64 lambda2 lambda1)))
(/.f64 (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2)) (*.f64 #s(literal 2 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))
(/.f64 (neg.f64 (-.f64 lambda1 lambda2)) #s(literal -2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(neg.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
(fma.f64 #s(literal 1/2 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 (neg.f64 lambda2) #s(literal 1/2 binary64)))
(fma.f64 lambda1 #s(literal 1/2 binary64) (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(-.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (*.f64 lambda2 #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))
(+.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))
(+.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (*.f64 (neg.f64 lambda2) #s(literal 1/2 binary64)))
(+.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(*.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(*.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))
(*.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(*.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(pow.f64 (/.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (+.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(/.f64 (*.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))
(/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (+.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))))
(fma.f64 (pow.f64 (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (pow.f64 (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (pow.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 phi1) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (/.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(+.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(+.f64 (*.f64 #s(literal 1 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(+.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (*.f64 #s(literal 1 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(+.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(*.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(*.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))
(*.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(*.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(pow.f64 (/.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (+.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(/.f64 (*.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))
(/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (+.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))))
(fma.f64 (pow.f64 (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (pow.f64 (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (pow.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 phi1) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (/.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(+.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(+.f64 (*.f64 #s(literal 1 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(+.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (*.f64 #s(literal 1 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(+.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(*.f64 (*.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(*.f64 (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(*.f64 #s(literal 2 binary64) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) R))
(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))
(*.f64 (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
(*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))
(*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))
(pow.f64 (/.f64 (+.f64 lambda2 lambda1) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))
(/.f64 (*.f64 (neg.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) (+.f64 lambda2 lambda1))
(/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))
(/.f64 (*.f64 #s(literal 2 binary64) (neg.f64 (-.f64 lambda1 lambda2))) #s(literal -2 binary64))
(/.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 (neg.f64 lambda2) (neg.f64 lambda2))) (-.f64 lambda1 (neg.f64 lambda2)))
(/.f64 (fma.f64 (*.f64 lambda1 lambda1) lambda1 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda2 lambda2) lambda2))) (fma.f64 lambda1 lambda1 (-.f64 (*.f64 (neg.f64 lambda2) (neg.f64 lambda2)) (*.f64 lambda1 (neg.f64 lambda2)))))
(/.f64 (neg.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) (neg.f64 (+.f64 lambda2 lambda1)))
(/.f64 (neg.f64 (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) (neg.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))
(/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1))
(/.f64 (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2)) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 lambda2 lambda1) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))))
(/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(fma.f64 #s(literal -1 binary64) lambda2 lambda1)
(fma.f64 #s(literal 1 binary64) lambda1 (*.f64 #s(literal 1 binary64) (neg.f64 lambda2)))
(fma.f64 lambda1 #s(literal 1 binary64) (*.f64 (neg.f64 lambda2) #s(literal 1 binary64)))
(-.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1)) (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1)))
(-.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))
(-.f64 lambda1 lambda2)
(+.f64 (*.f64 lambda1 #s(literal 1 binary64)) (*.f64 (neg.f64 lambda2) #s(literal 1 binary64)))
(+.f64 (*.f64 #s(literal 1 binary64) lambda1) (*.f64 #s(literal 1 binary64) (neg.f64 lambda2)))
(+.f64 (neg.f64 lambda2) lambda1)
(+.f64 lambda1 (neg.f64 lambda2))
(*.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (*.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1))) (-.f64 phi2 phi1))
(*.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi2 phi2 (*.f64 phi1 (-.f64 phi1 phi2))))
(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)) #s(literal 1/2 binary64))
(*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))
(*.f64 (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))))
(*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))
(*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))
(*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(*.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(pow.f64 (/.f64 (+.f64 phi2 phi1) (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2))) #s(literal -1 binary64))
(/.f64 (*.f64 (neg.f64 (-.f64 phi1 phi2)) #s(literal 2 binary64)) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))) (+.f64 phi2 phi1))
(/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2))) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))
(/.f64 (*.f64 #s(literal 2 binary64) (neg.f64 (-.f64 phi1 phi2))) #s(literal -2 binary64))
(/.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 phi1 phi1) (*.f64 (neg.f64 phi2) (neg.f64 phi2))) (-.f64 phi1 (neg.f64 phi2)))
(/.f64 (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 phi1 (-.f64 (*.f64 (neg.f64 phi2) (neg.f64 phi2)) (*.f64 phi1 (neg.f64 phi2)))))
(/.f64 (neg.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))) (neg.f64 (+.f64 phi2 phi1)))
(/.f64 (neg.f64 (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2))) (neg.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))))
(/.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (+.f64 phi2 phi1))
(/.f64 (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))
(/.f64 #s(literal -2 binary64) (/.f64 #s(literal -2 binary64) (-.f64 phi1 phi2)))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi2 phi1) (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2))))
(/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))
(fma.f64 #s(literal -1 binary64) phi2 phi1)
(fma.f64 #s(literal 1 binary64) phi1 (*.f64 #s(literal 1 binary64) (neg.f64 phi2)))
(fma.f64 phi1 #s(literal 1 binary64) (*.f64 (neg.f64 phi2) #s(literal 1 binary64)))
(-.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1)) (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)))
(-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) phi1) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))) (/.f64 (*.f64 (*.f64 phi2 phi2) phi2) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))))
(-.f64 phi1 phi2)
(+.f64 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 (neg.f64 phi2) #s(literal 1 binary64)))
(+.f64 (*.f64 #s(literal 1 binary64) phi1) (*.f64 #s(literal 1 binary64) (neg.f64 phi2)))
(+.f64 (neg.f64 phi2) phi1)
(+.f64 phi1 (neg.f64 phi2))
(*.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(*.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/4 binary64))))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(pow.f64 (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/4 binary64)) (-.f64 #s(literal 1/8 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)))) #s(literal -1 binary64))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 #s(literal 0 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (+.f64 #s(literal 0 binary64) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (*.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (*.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (*.f64 #s(literal 1/2 binary64) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)))) (neg.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)))) (neg.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/4 binary64))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/4 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/4 binary64)) (-.f64 #s(literal 1/8 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)))))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #s(literal 0 binary64))
(fma.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/4 binary64))) #s(literal 0 binary64))
(fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
(fma.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 0 binary64))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64))
(-.f64 (/.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(-.f64 (/.f64 #s(literal 1/8 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/4 binary64))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/4 binary64))))
(-.f64 #s(literal 0 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
(+.f64 (*.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 1/2 binary64)) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 1/2 binary64)))
(+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(+.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(+.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
(+.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 0 binary64))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(*.f64 (+.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(*.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))))
(*.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(*.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64))))))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(pow.f64 (/.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64))) #s(literal -1 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 lambda1 lambda2))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64)))) (fma.f64 #s(literal -1/8 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) #s(literal -1 binary64))
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)))) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (neg.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(/.f64 (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64))) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))))
(/.f64 (neg.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64))))))
(/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)))
(/.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))
(/.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (+.f64 #s(literal 1/4 binary64) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64)))))
(/.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64)))) (fma.f64 #s(literal -1/8 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))))
(fma.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal 1/2 binary64) (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))
(-.f64 (/.f64 #s(literal 1/8 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (/.f64 (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(-.f64 (/.f64 #s(literal 1/4 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))) (/.f64 #s(literal 1/4 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))
(+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (-.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(*.f64 (+.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))))))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64)))))
(pow.f64 (/.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (-.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))))))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 6 binary64)))) #s(literal -1 binary64))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 6 binary64)))) (neg.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))))))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64)))))
(/.f64 (-.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 6 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 6 binary64))) (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))))))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (-.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))))))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 6 binary64)))))
(fma.f64 (pow.f64 (exp.f64 (log.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 1 binary64)) (pow.f64 (exp.f64 (log.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 1 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (pow.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 (exp.f64 (log.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))))) (exp.f64 (log.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))
(fma.f64 (cos.f64 phi1) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))
(-.f64 (/.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 4 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (/.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(+.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))
(*.f64 (-.f64 (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)))))
(*.f64 (-.f64 (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64))) (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)))))
(pow.f64 (/.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64))) (-.f64 (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64))) (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64))) (-.f64 (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(/.f64 (-.f64 (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)) (-.f64 (*.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (-.f64 phi2 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64))) (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64))))
(/.f64 (-.f64 (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64))) (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64))) (-.f64 (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64))) (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64))) (-.f64 (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))))
(fma.f64 (*.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 (*.f64 (-.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)))
(fma.f64 (+.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(fma.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)))
(fma.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)))
(fma.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1)))))) (/.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64))) (*.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (+.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi2 phi1))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))))) (*.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 #s(literal -1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)))
(fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)))
(fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)))
(fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(fma.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi2 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 phi2) (cos.f64 phi1) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(fma.f64 (cos.f64 phi1) (cos.f64 phi2) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(fma.f64 #s(literal 2 binary64) (*.f64 (cos.f64 (/.f64 (+.f64 (fma.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 (fma.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (*.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (cos.f64 (*.f64 (-.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(-.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (cos.f64 (+.f64 phi2 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 phi2 phi1))))
(-.f64 (/.f64 (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)))) (/.f64 (pow.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)))))
(-.f64 (/.f64 (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 3 binary64)) (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64))) (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64))) (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)))))
(-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (cos.f64 (-.f64 phi2 phi1)))
(+.f64 (*.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)))
(+.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(+.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(+.f64 (cos.f64 (-.f64 phi2 phi1)) (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(+.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(+.f64 #s(literal 1 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (*.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(*.f64 (*.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(*.f64 (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(*.f64 #s(literal 2 binary64) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) R))
(*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)))))
(*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64))) (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)))))
(*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(*.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))
(*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64))))
(*.f64 (neg.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) #s(literal -1/2 binary64))
(*.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) #s(literal -1 binary64)))
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(pow.f64 (/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) #s(literal -1 binary64))
(/.f64 (*.f64 (-.f64 (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64))))
(/.f64 (*.f64 (-.f64 (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) #s(literal 1/2 binary64)) (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64))) (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (*.f64 (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1/4 binary64)) (-.f64 (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (-.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (*.f64 (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (fma.f64 (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (*.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (neg.f64 (-.f64 (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))
(/.f64 (-.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) #s(literal 4 binary64))
(/.f64 (-.f64 (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (-.f64 (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (*.f64 #s(literal 2 binary64) (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64))) (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64)))
(/.f64 (neg.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) #s(literal -2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(neg.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #s(literal -2 binary64)))
(fma.f64 (*.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal -1 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (neg.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (neg.f64 (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (neg.f64 (cos.f64 phi2)) (*.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 #s(literal -1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 phi2) (*.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(-.f64 (/.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (-.f64 (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (-.f64 (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (/.f64 (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64))) (/.f64 (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (fma.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64))))
(-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (/.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal -1 binary64)))
(+.f64 (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(+.f64 (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(+.f64 (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64))
(+.f64 (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(+.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(+.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(+.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(+.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(+.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(+.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(*.f64 (*.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(*.f64 (*.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(*.f64 (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(*.f64 #s(literal 2 binary64) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) R))
(*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))
(*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 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 1 binary64) (neg.f64 (-.f64 phi1 phi2))) #s(literal -1 binary64)) #s(literal -1/2 binary64))
(*.f64 (pow.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (pow.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(*.f64 (neg.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64))
(*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (-.f64 phi1 phi2))))
(*.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (neg.f64 (-.f64 phi1 phi2))) #s(literal -1 binary64)))
(*.f64 #s(literal -1/2 binary64) (neg.f64 (-.f64 phi1 phi2)))
(*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 1 binary64))
(*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))
(*.f64 #s(literal 1 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)) #s(literal 1 binary64)) #s(literal -1 binary64)))
(*.f64 #s(literal 1/2 binary64) (pow.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))
(*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)) #s(literal -1 binary64))
(pow.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 1 binary64))
(/.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (+.f64 phi2 phi1))
(/.f64 (*.f64 (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))
(/.f64 (*.f64 #s(literal 1 binary64) (neg.f64 (-.f64 phi1 phi2))) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))) (+.f64 phi2 phi1))
(/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2))) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))
(/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (*.f64 phi2 #s(literal 1/2 binary64)) (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 phi1 phi1) phi1) #s(literal 1/8 binary64)) (*.f64 (*.f64 (*.f64 phi2 phi2) phi2) #s(literal 1/8 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 #s(literal 1/2 binary64) phi1) (fma.f64 (*.f64 phi2 #s(literal 1/2 binary64)) (*.f64 phi2 #s(literal 1/2 binary64)) (*.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 phi2 #s(literal 1/2 binary64))))))
(/.f64 (neg.f64 (neg.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 phi1 #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) phi2)) #s(literal 4 binary64))
(/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (*.f64 #s(literal 2 binary64) (+.f64 phi2 phi1)))
(/.f64 (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)) (*.f64 #s(literal 2 binary64) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))))
(/.f64 (neg.f64 (-.f64 phi1 phi2)) #s(literal -2 binary64))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal -2 binary64) (-.f64 phi1 phi2)))
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))
(/.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))
(neg.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))
(neg.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64)))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (neg.f64 phi2)))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 (neg.f64 phi2) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal -1/2 binary64) phi2))
(fma.f64 #s(literal 1/2 binary64) phi1 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(fma.f64 phi1 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (neg.f64 phi2)))
(fma.f64 phi1 #s(literal 1/2 binary64) (*.f64 (neg.f64 phi2) #s(literal 1/2 binary64)))
(fma.f64 phi1 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) phi2))
(fma.f64 phi1 #s(literal 1/2 binary64) (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(-.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 phi2 #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (neg.f64 (log.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)))
(+.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 #s(literal 1/2 binary64) (neg.f64 phi2)))
(+.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 (neg.f64 phi2) #s(literal 1/2 binary64)))
(+.f64 (*.f64 #s(literal 1/2 binary64) phi1) (*.f64 #s(literal -1/2 binary64) phi2))
(+.f64 (*.f64 #s(literal 1/2 binary64) phi1) (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(*.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(*.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))
(*.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(*.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(pow.f64 (/.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (+.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(/.f64 (*.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))
(/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (+.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))))
(fma.f64 (pow.f64 (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (pow.f64 (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (pow.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(fma.f64 #s(literal 1 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 phi1) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (/.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(+.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(+.f64 (*.f64 #s(literal 1 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(+.f64 (*.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (*.f64 #s(literal 1 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(+.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(neg.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))))
(fma.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 (neg.f64 lambda2) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 (neg.f64 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))))
(+.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 (neg.f64 lambda2) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 (neg.f64 lambda2) #s(literal 1/2 binary64)))))
(+.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))))
(*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)))))
(*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64))) (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)))))
(*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(*.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))
(*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64))))
(*.f64 (neg.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) #s(literal -1/2 binary64))
(*.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) #s(literal -1 binary64)))
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(pow.f64 (/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) #s(literal -1 binary64))
(/.f64 (*.f64 (-.f64 (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64))))
(/.f64 (*.f64 (-.f64 (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) #s(literal 1/2 binary64)) (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64))) (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (*.f64 (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1/4 binary64)) (-.f64 (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (-.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (*.f64 (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (fma.f64 (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (*.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (neg.f64 (-.f64 (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))
(/.f64 (-.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) #s(literal 4 binary64))
(/.f64 (-.f64 (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (-.f64 (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (*.f64 #s(literal 2 binary64) (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64))) (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64)))
(/.f64 (neg.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) #s(literal -2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(neg.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #s(literal -2 binary64)))
(fma.f64 (*.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal -1 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (neg.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (neg.f64 (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (neg.f64 (cos.f64 phi2)) (*.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 #s(literal -1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 phi2) (*.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(-.f64 (/.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (-.f64 (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (-.f64 (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (/.f64 (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64))) (/.f64 (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (fma.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64))))
(-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (/.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal -1 binary64)))
(+.f64 (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(+.f64 (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(+.f64 (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64))
(+.f64 (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(+.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(+.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(+.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(+.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(+.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(+.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(*.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) #s(literal 1/2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 #s(literal 1 binary64) #s(literal 1/2 binary64)) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(*.f64 (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1/4 binary64)))
(*.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (pow.f64 #s(literal 1 binary64) #s(literal 1/2 binary64)))
(pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(/.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (sqrt.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))
(sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(exp.f64 (*.f64 (log.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (pow.f64 (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)))
(*.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)))
(*.f64 (pow.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)))
(*.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal 2 binary64)))
(*.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))))) #s(literal 2 binary64)))
(*.f64 (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(pow.f64 (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(/.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(/.f64 (*.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))))
(/.f64 (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(/.f64 (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(/.f64 (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64)))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(/.f64 (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (+.f64 #s(literal 1/4 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (cos.f64 (-.f64 phi2 phi1))))))
(/.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(/.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(/.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(/.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))))))
(/.f64 (*.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (*.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(/.f64 (*.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (*.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(/.f64 (*.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64)))) (*.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(/.f64 (*.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64)))) (*.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (*.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (*.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (*.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (*.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64)))) (*.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64)))) (*.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64)))) (*.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64)))) (*.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64))
(fma.f64 (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(fma.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(fma.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(exp.f64 (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(+.f64 (*.f64 (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(+.f64 (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64)))
(*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64))) #s(literal 1 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) (cos.f64 (+.f64 lambda2 lambda1)))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64))) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (fma.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (-.f64 (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (*.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
(fma.f64 (cos.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (cos.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1))) (*.f64 (sin.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (sin.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1)))))
(fma.f64 (cos.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))) (cos.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))) (*.f64 (sin.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))) (sin.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))))
(fma.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(-.f64 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1 binary64))) (cos.f64 (*.f64 (neg.f64 lambda2) #s(literal 1 binary64)))) (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1 binary64))) (sin.f64 (*.f64 (neg.f64 lambda2) #s(literal 1 binary64)))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1 binary64) (neg.f64 lambda2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1 binary64) (neg.f64 lambda2)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
(-.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)))
(-.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2))))
(cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (*.f64 (cos.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (cos.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (sin.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1)))))
(+.f64 (*.f64 (cos.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))) (cos.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))) (*.f64 (sin.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))) (sin.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))))
(+.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(+.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(+.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64))) #s(literal 1 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) (cos.f64 (+.f64 lambda2 lambda1)))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64))) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (fma.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (-.f64 (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (*.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
(fma.f64 (cos.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (cos.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1))) (*.f64 (sin.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (sin.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1)))))
(fma.f64 (cos.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))) (cos.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))) (*.f64 (sin.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))) (sin.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))))
(fma.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(-.f64 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1 binary64))) (cos.f64 (*.f64 (neg.f64 lambda2) #s(literal 1 binary64)))) (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1 binary64))) (sin.f64 (*.f64 (neg.f64 lambda2) #s(literal 1 binary64)))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1 binary64) (neg.f64 lambda2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1 binary64) (neg.f64 lambda2)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
(-.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)))
(-.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2))))
(cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (*.f64 (cos.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (cos.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (sin.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1)))))
(+.f64 (*.f64 (cos.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))) (cos.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))) (*.f64 (sin.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))) (sin.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))))
(+.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(+.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(+.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
#s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))
(*.f64 (+.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(*.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))))
(*.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(*.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64))))))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(pow.f64 (/.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64))) #s(literal -1 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 lambda1 lambda2))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64)))) (fma.f64 #s(literal -1/8 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) #s(literal -1 binary64))
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)))) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (neg.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(/.f64 (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64))) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))))
(/.f64 (neg.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64))))))
(/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)))
(/.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))
(/.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (+.f64 #s(literal 1/4 binary64) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64)))))
(/.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64)))) (fma.f64 #s(literal -1/8 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))))
(fma.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal 1/2 binary64) (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))
(-.f64 (/.f64 #s(literal 1/8 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (/.f64 (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(-.f64 (/.f64 #s(literal 1/4 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))) (/.f64 #s(literal 1/4 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))
(+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi2 phi1)))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) #s(literal 1 binary64))
(/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))) (cos.f64 (+.f64 phi2 phi1)))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64))) (+.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (+.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 3 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (*.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(fma.f64 (cos.f64 (/.f64 (*.f64 (*.f64 phi2 phi2) phi2) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1))))) (cos.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) phi1) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1))))) (*.f64 (sin.f64 (/.f64 (*.f64 (*.f64 phi2 phi2) phi2) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1))))) (sin.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) phi1) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))))))
(fma.f64 (cos.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1))) (*.f64 (sin.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1))) (sin.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)))))
(fma.f64 (cos.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1))) (*.f64 (sin.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1))) (sin.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1)))))
(fma.f64 (cos.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) phi1) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))) (cos.f64 (/.f64 (*.f64 (*.f64 phi2 phi2) phi2) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))) (*.f64 (sin.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) phi1) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))) (sin.f64 (/.f64 (*.f64 (*.f64 phi2 phi2) phi2) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))))))
(fma.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (*.f64 (neg.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (*.f64 (neg.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (*.f64 (neg.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (neg.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) #s(literal 1/4 binary64))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (neg.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (cos.f64 phi1) (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (neg.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (neg.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(fma.f64 #s(literal 2 binary64) (/.f64 (*.f64 (cos.f64 (*.f64 (-.f64 (+.f64 phi2 phi1) (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 (+.f64 (+.f64 phi2 phi1) phi2) phi1) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(-.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1 binary64))) (cos.f64 (*.f64 (neg.f64 phi2) #s(literal 1 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1 binary64))) (sin.f64 (*.f64 (neg.f64 phi2) #s(literal 1 binary64)))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1 binary64) (neg.f64 phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1 binary64) (neg.f64 phi2)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(-.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(-.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(-.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (neg.f64 (sin.f64 phi1))))
(-.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (neg.f64 (sin.f64 phi2))))
(cos.f64 (fma.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(cos.f64 (-.f64 phi2 phi1))
(cos.f64 (-.f64 phi1 phi2))
(+.f64 (*.f64 (cos.f64 (/.f64 (*.f64 (*.f64 phi2 phi2) phi2) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1))))) (cos.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) phi1) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))))) (*.f64 (sin.f64 (/.f64 (*.f64 (*.f64 phi2 phi2) phi2) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1))))) (sin.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) phi1) (fma.f64 phi2 phi2 (*.f64 phi1 (+.f64 phi2 phi1)))))))
(+.f64 (*.f64 (cos.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1)))) (*.f64 (sin.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1))) (sin.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1)))))
(+.f64 (*.f64 (cos.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1))) (cos.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)))) (*.f64 (sin.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi2 phi1))) (sin.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi2 phi1)))))
(+.f64 (*.f64 (cos.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) phi1) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))) (cos.f64 (/.f64 (*.f64 (*.f64 phi2 phi2) phi2) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))))) (*.f64 (sin.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) phi1) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)))) (sin.f64 (/.f64 (*.f64 (*.f64 phi2 phi2) phi2) (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1))))))
(+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(+.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(+.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(*.f64 (pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(*.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))))) (/.f64 #s(literal 1 binary64) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))))))
(pow.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64)))) #s(literal -1 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 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(/.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(/.f64 (neg.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (neg.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))))))
(/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))))) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (*.f64 (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64)))))
(neg.f64 (sin.f64 (/.f64 #s(literal -1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))
(neg.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))))
(fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal -1 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(fma.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 phi2)))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 (neg.f64 phi2) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 (neg.f64 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))
(-.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
(-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))) (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))
(-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(exp.f64 (*.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 phi2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 phi2)))))
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 (neg.f64 phi2) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 (neg.f64 phi2) #s(literal 1/2 binary64)))))
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(+.f64 (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(+.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)))))
(*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64))) (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)))))
(*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(*.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))
(*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64))))
(*.f64 (neg.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) #s(literal -1/2 binary64))
(*.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) #s(literal -1 binary64)))
(*.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(pow.f64 (/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) #s(literal -1 binary64))
(/.f64 (*.f64 (-.f64 (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64))))
(/.f64 (*.f64 (-.f64 (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) #s(literal 1/2 binary64)) (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64))) (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (*.f64 (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1/4 binary64)) (-.f64 (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (-.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (*.f64 (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (fma.f64 (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (*.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (neg.f64 (-.f64 (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (neg.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64))))
(/.f64 (neg.f64 (neg.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))
(/.f64 (-.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) #s(literal 4 binary64))
(/.f64 (-.f64 (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (-.f64 (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 3 binary64)) (pow.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (*.f64 #s(literal 2 binary64) (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64))) (pow.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (-.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64)))
(/.f64 (neg.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) #s(literal -2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(neg.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #s(literal -2 binary64)))
(fma.f64 (*.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal -1 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (neg.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (neg.f64 (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (neg.f64 (cos.f64 phi2)) (*.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 #s(literal -1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(fma.f64 #s(literal -1 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 phi2) (*.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(-.f64 (/.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (-.f64 (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (-.f64 (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (/.f64 (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64))) (/.f64 (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (fma.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64))))
(-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (/.f64 (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal -1 binary64)))
(+.f64 (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(+.f64 (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(+.f64 (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64))
(+.f64 (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(+.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(+.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(+.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))))
(+.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(+.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(+.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))

eval869.0ms (1.9%)

Memory
55.8MiB live, 1 331.0MiB allocated
Compiler

Compiled 310 705 to 12 660 computations (95.9% saved)

prune1.4s (3.2%)

Memory
-36.8MiB live, 2 213.5MiB allocated
Pruning

226 alts after pruning (226 fresh and 0 done)

PrunedKeptTotal
New3 6471163 763
Fresh72110182
Picked505
Done000
Total3 7242263 950
Accuracy
81.6%
Counts
3 950 → 226
Alt Table
Click to see full alt table
StatusAccuracyProgram
43.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
45.8%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
42.9%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
55.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
43.7%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
43.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
62.6%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
43.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) (cos.f64 (+.f64 lambda2 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
43.7%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (fma.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (-.f64 (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (*.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
43.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
26.9%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
▶57.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
40.8%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
26.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
62.0%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
62.0%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (/.f64 #s(literal 1/4 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
62.0%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
63.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
17.2%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 phi1 (-.f64 (*.f64 (neg.f64 phi2) (neg.f64 phi2)) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
22.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)) (fma.f64 phi1 phi1 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
41.7%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
16.0%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi2 phi2 (*.f64 phi1 (-.f64 phi1 phi2))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
24.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
49.8%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
49.8%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
62.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (*.f64 R #s(literal 2 binary64)))
62.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
62.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
63.0%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
34.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (+.f64 phi2 phi1))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
62.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
62.6%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
39.6%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
38.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
50.8%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
41.2%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 lambda2) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
44.4%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
47.8%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
39.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) phi1) #s(literal -1/2 binary64) (sin.f64 phi2)) phi1 (cos.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
47.6%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi2)))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
43.0%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi1)))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
62.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
43.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
49.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
45.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
48.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (*.f64 R #s(literal 2 binary64)))
43.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 phi1) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
37.8%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
42.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (*.f64 R #s(literal 2 binary64)))
48.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
43.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (fma.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
29.7%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
35.0%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
34.4%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
35.0%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
34.4%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
33.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
25.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (neg.f64 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
42.7%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi2) phi1 (cos.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
37.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
43.9%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
62.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
62.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
36.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (fma.f64 (neg.f64 lambda1) (/.f64 lambda2 lambda1) lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
37.9%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
50.8%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
39.9%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
29.0%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
30.7%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 lambda2) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
29.8%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
40.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
48.4%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos.f64 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
44.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos.f64 lambda1)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
38.9%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
50.4%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
21.7%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (exp.f64 (*.f64 (log.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
33.9%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
▶33.6%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
29.4%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
62.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (pow.f64 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
62.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (*.f64 (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1/4 binary64))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
62.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (*.f64 (pow.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) #s(literal 1/2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
62.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
39.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
66.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
71.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
60.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
39.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
62.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
62.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
62.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
58.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
39.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
63.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
64.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
66.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
28.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (exp.f64 (log.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))))) (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 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
64.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
68.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
79.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
79.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 3 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (*.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
▶79.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
44.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(approx (cos (- phi1 phi2)) (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) phi1) #s(literal -1/2 binary64) (sin.f64 phi2)) phi1 (cos.f64 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
53.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(approx (cos (- phi1 phi2)) (cos.f64 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
55.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
67.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))
75.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))))
78.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
54.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))))))
79.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
66.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (*.f64 (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
67.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
55.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64)))))))))))
56.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
48.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))))))))))
15.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (neg.f64 (log.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
53.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
58.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))))
57.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))))))
68.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) #s(literal -1 binary64)))))))
53.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)) (-.f64 (fma.f64 (cos.f64 phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
48.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)) (-.f64 (fma.f64 (cos.f64 phi1) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
42.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
47.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)) (-.f64 (+.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
29.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
42.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
20.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
55.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
65.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
51.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
48.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
58.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
55.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
41.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
66.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
67.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
50.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
57.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
66.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
57.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
63.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
57.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
50.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
58.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
66.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
65.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))))
61.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
54.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1))))))))))
▶48.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
14.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
47.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
51.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
45.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (fma.f64 (neg.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))) lambda1 #s(literal 1 binary64)) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
49.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (fma.f64 (neg.f64 (*.f64 lambda1 (cos.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 1 binary64)) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
51.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
47.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
53.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
49.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
19.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
54.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
50.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
47.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
44.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
49.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
56.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) lambda2)) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
54.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) lambda2)) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) #s(literal 2 binary64)))))))))))
41.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
47.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
33.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (+ (* (* (sin (* phi1 1/2)) phi2) (cos (* phi1 -1/2))) (- (pow (cos (* phi1 -1/2)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
19.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
47.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
15.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
47.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
42.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
20.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
42.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
43.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))))))
43.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (cos.f64 (+.f64 phi2 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64))))))
43.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
43.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
35.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
34.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
43.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 #s(approx (cos (- phi1 phi2)) (cos.f64 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
43.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (+.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))))))
43.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(approx (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) (-.f64 (+.f64 #s(literal 1 binary64) (cos.f64 phi1)) (*.f64 (+.f64 (cos.f64 phi1) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
29.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(approx (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) (+.f64 (+.f64 #s(literal 1 binary64) (cos.f64 phi2)) (*.f64 #s(literal -2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) #s(literal 2 binary64))))))
43.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
44.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
31.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
43.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
32.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
43.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
40.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
35.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64)))))))))))
▶34.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
32.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
42.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
13.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
29.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
40.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
40.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
27.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
13.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
31.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
31.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
34.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
32.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
31.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
64.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
68.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (*.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
73.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (*.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (*.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
64.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
62.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
47.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
49.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
50.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
46.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
47.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
52.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
49.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
48.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
43.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (neg.f64 phi2) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
50.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
48.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
79.2%
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))))
67.1%
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (/ (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) 2))))) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64))))))
Compiler

Compiled 36 188 to 18 614 computations (48.6% saved)

simplify188.0ms (0.4%)

Memory
8.1MiB live, 238.2MiB allocated
Algorithm
1×egg-herbie
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
cost-diff128
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))
cost-diff128
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
cost-diff384
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
cost-diff384
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
cost-diff128
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))
cost-diff128
(+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
cost-diff384
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
cost-diff384
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
cost-diff320
(-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
cost-diff640
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
cost-diff640
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
cost-diff1408
(/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
cost-diff128
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
cost-diff128
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))
cost-diff256
(-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
cost-diff640
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
cost-diff128
(+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
cost-diff128
(+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
cost-diff384
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
cost-diff13696
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
Rules
14 304×lower-fma.f32
14 292×lower-fma.f64
4 106×lower-*.f32
4 036×lower-*.f64
2 628×lower-+.f32
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
01352682
02462561
14132429
27932429
319892391
449142381
084572306
Stop Event
1×iter limit
1×node limit
1×iter limit
Calls
Call 1
Inputs
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
R
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(*.f64 phi1 #s(literal 1/2 binary64))
phi1
#s(literal 1/2 binary64)
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 phi2 #s(literal 1/2 binary64))
phi2
(*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos.f64 phi1)
(cos.f64 phi2)
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
#s(literal -1/2 binary64)
(cos.f64 (-.f64 lambda1 lambda2))
(neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(sin.f64 phi1)
(sin.f64 phi2)
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))))
(sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))
(fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(cos.f64 lambda1)
lambda1
#s(literal -1/2 binary64)
#s(literal 1/2 binary64)
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(cos.f64 phi2)
phi2
(cos.f64 phi1)
phi1
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
#s(literal 2 binary64)
(*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))
(-.f64 phi1 phi2)
(sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(cos.f64 (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
lambda2
(*.f64 R #s(literal 2 binary64))
R
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))
#s(literal 1/2 binary64)
(*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))
(cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))
(/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
#s(literal 2 binary64)
(/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(cos.f64 phi2)
phi2
(cos.f64 phi1)
phi1
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))
(-.f64 phi1 phi2)
(sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))
(*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))
(*.f64 R #s(literal 2 binary64))
R
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
R
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))))))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))
#s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))
(*.f64 phi1 #s(literal 1/2 binary64))
phi1
#s(literal 1/2 binary64)
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos.f64 phi1)
(cos.f64 phi2)
phi2
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))
#s(literal 1 binary64)
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(-.f64 phi1 phi2)
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))
(sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))
#s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))
(*.f64 #s(literal 1/2 binary64) lambda1)
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
R
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))))))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(-.f64 phi1 phi2)
phi1
phi2
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos.f64 phi1)
(cos.f64 phi2)
(-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))
(*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))
(*.f64 lambda1 #s(literal 1/2 binary64))
lambda1
#s(literal 1/2 binary64)
(cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))
(*.f64 lambda2 #s(literal 1/2 binary64))
lambda2
(*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))
(sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(-.f64 lambda1 lambda2)
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))
#s(literal 1 binary64)
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))
#s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))
(*.f64 #s(literal 1/2 binary64) lambda1)
Outputs
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)))))))
R
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)))))) #s(literal 2 binary64))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64))))))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(sqrt.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))
(+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))
(-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(*.f64 phi1 #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) phi1)
phi1
#s(literal 1/2 binary64)
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 phi2 #s(literal 1/2 binary64))
phi2
(*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(cos.f64 phi1)
(cos.f64 phi2)
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(sqrt.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64)))))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1 binary64))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
#s(literal -1/2 binary64)
(cos.f64 (-.f64 lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(*.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) #s(literal 1 binary64))) #s(literal 1/2 binary64))
(+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(*.f64 (sin.f64 phi2) (sin.f64 phi1))
(sin.f64 phi1)
(sin.f64 phi2)
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) #s(literal 1 binary64)) #s(literal 1/2 binary64))))))
(atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))))
(atan2.f64 (sqrt.f64 (fma.f64 (*.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))
(sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))
(sqrt.f64 (fma.f64 (*.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))
(fma.f64 (*.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(cos.f64 lambda1)
lambda1
#s(literal -1/2 binary64)
#s(literal 1/2 binary64)
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(cos.f64 phi2)
phi2
(cos.f64 phi1)
phi1
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))
(fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))
(cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(cos.f64 (-.f64 phi2 phi1))
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(-.f64 phi1 phi2)
#s(literal 2 binary64)
(*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))
(*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))
(-.f64 phi1 phi2)
(sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))
(sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) #s(literal 1 binary64)) #s(literal 1/2 binary64))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(*.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (cos.f64 phi1)) #s(literal 1/2 binary64))
(-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(cos.f64 (-.f64 lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(-.f64 lambda1 lambda2)
lambda2
(*.f64 R #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) R)
R
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)))) (*.f64 #s(literal 2 binary64) R))
(atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(atan2.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 phi2 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 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))
(sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))
(fma.f64 #s(literal -1/2 binary64) (fma.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
(*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))
(cos.f64 (-.f64 lambda2 lambda1))
(/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(-.f64 lambda1 lambda2)
#s(literal 2 binary64)
(/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(cos.f64 phi2)
phi2
(cos.f64 phi1)
phi1
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))
(fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))
(cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(cos.f64 (-.f64 phi2 phi1))
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(-.f64 phi1 phi2)
(*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))
(*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))
(-.f64 phi1 phi2)
(sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)))
(-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 #s(literal 1/2 binary64) (fma.f64 (-.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))
(fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(cos.f64 (-.f64 lambda2 lambda1))
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(-.f64 lambda1 lambda2)
(*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(*.f64 R #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) R)
R
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 #s(literal 2 binary64) R))
R
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))
(atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(sqrt.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))
(+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 phi2) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))
(pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))
(sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))
(sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))
#s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))
#s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))
(*.f64 phi1 #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) phi1)
phi1
#s(literal 1/2 binary64)
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(cos.f64 phi1)
(cos.f64 phi2)
phi2
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))
(-.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
#s(literal 1 binary64)
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))
(fma.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))
(-.f64 phi1 phi2)
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))
(*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)))
(sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))
(sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))
#s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))
#s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))
(*.f64 #s(literal 1/2 binary64) lambda1)
(*.f64 lambda1 #s(literal 1/2 binary64))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))) (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (*.f64 #s(literal 2 binary64) R))
R
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))) (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))
(atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))) (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(sqrt.f64 (fma.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))) (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(fma.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))) (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))
(-.f64 phi1 phi2)
phi1
phi2
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))) (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))))
(*.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(cos.f64 phi1)
(cos.f64 phi2)
(-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))
(fma.f64 (neg.f64 (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))
(*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(*.f64 (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))
(*.f64 lambda1 #s(literal 1/2 binary64))
lambda1
#s(literal 1/2 binary64)
(cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))
(*.f64 lambda2 #s(literal 1/2 binary64))
lambda2
(*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(*.f64 (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))
(sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(-.f64 lambda1 lambda2)
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))
(-.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
#s(literal 1 binary64)
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))
(fma.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))
(*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)))
(*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))
(*.f64 (*.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))
(sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))
(sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))
#s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))
#s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))
(*.f64 #s(literal 1/2 binary64) lambda1)
(*.f64 lambda1 #s(literal 1/2 binary64))

localize1.4s (3.1%)

Memory
30.9MiB live, 2 274.6MiB allocated
Localize:

Found 20 expressions of interest:

NewMetricScoreProgram
accuracy12.087259885353925
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
accuracy14.07417671635896
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
accuracy14.07417671635896
(sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))
accuracy34.01340489689101
#s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))
accuracy14.07417671635896
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
accuracy14.07417671635896
(sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))
accuracy33.45157051770688
#s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))
accuracy34.01340489689101
#s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))
accuracy12.708443331799739
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))
accuracy12.708443331799739
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
accuracy14.185263838953693
(cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))
accuracy14.185263838953693
(cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
accuracy14.185263838953693
(cos.f64 (-.f64 lambda1 lambda2))
accuracy17.726534645036022
(fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
accuracy26.716966876112426
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
accuracy36.23521708253754
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
accuracy0.650329111447397
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
accuracy12.708443331799739
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
accuracy14.07417671635896
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
accuracy14.185263838953693
(cos.f64 (-.f64 lambda1 lambda2))
Samples
712.0ms165×1valid
408.0ms90×2valid
16.0ms1×5exit
Compiler

Compiled 2 512 to 113 computations (95.5% saved)

Precisions
Click to see histograms. Total time spent on operations: 967.0ms
ival-cos: 314.0ms (32.5% of total)
ival-sin: 199.0ms (20.6% of total)
ival-mult: 181.0ms (18.7% of total)
adjust: 106.0ms (11% of total)
ival-atan2: 46.0ms (4.8% of total)
ival-sqrt: 34.0ms (3.5% of total)
ival-add: 30.0ms (3.1% of total)
ival-sub: 26.0ms (2.7% of total)
ival-div: 17.0ms (1.8% of total)
ival-pow2: 13.0ms (1.3% of total)
ival-neg: 2.0ms (0.2% of total)
exact: 1.0ms (0.1% of total)
ival-true: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)

series191.0ms (0.4%)

Memory
2.5MiB live, 281.2MiB allocated
Counts
30 → 912
Calls
Call 1
Inputs
#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())
#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())
#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())
#s(alt (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (patch (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #<representation binary64>) () ())
#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())
#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())
#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())
#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())
#s(alt (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (patch (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())
#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())
#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())
#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())
#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())
#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())
#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())
#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())
#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())
#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())
#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())
#s(alt #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (patch #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())
#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())
#s(alt (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())
#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())
#s(alt (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())
#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())
#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())
#s(alt #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) (patch #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) #<representation binary64>) () ())
#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())
#s(alt (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (patch (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) #<representation binary64>) () ())
#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())
Outputs
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (taylor 0 lambda1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))) (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))) (taylor 0 lambda1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))) (+ (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))))))) (taylor 0 lambda1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))) (+ (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))))))) (taylor 0 lambda1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 lambda2) (taylor 0 lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (neg lambda2))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* lambda1 (sin (neg lambda2)))) (* 1/2 (cos (neg lambda2)))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (cos (neg lambda2))) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/4 (* lambda1 (cos (neg lambda2))))))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (cos (neg lambda2))) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* lambda1 (+ (* -1/4 (cos (neg lambda2))) (* 1/12 (* lambda1 (sin (neg lambda2))))))))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (neg lambda2))))) (taylor 0 lambda1) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (* lambda1 (* (cos phi1) (sin (neg lambda2))))) (* 1/2 (* (cos phi1) (cos (neg lambda2)))))) (taylor 0 lambda1) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* 1/2 (* (cos phi1) (cos (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (sin (neg lambda2)))) (* -1/4 (* lambda1 (* (cos phi1) (cos (neg lambda2))))))))) (taylor 0 lambda1) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* 1/2 (* (cos phi1) (cos (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (sin (neg lambda2)))) (* lambda1 (+ (* -1/4 (* (cos phi1) (cos (neg lambda2)))) (* 1/12 (* lambda1 (* (cos phi1) (sin (neg lambda2))))))))))) (taylor 0 lambda1) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* -1 lambda2) (taylor 0 lambda1) (#s(alt (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (patch (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (- lambda1 lambda2) (taylor 0 lambda1) (#s(alt (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (patch (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (- lambda1 lambda2) (taylor 0 lambda1) (#s(alt (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (patch (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (- lambda1 lambda2) (taylor 0 lambda1) (#s(alt (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (patch (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 lambda2) (taylor 0 lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (- lambda1 lambda2) (taylor 0 lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (- lambda1 lambda2) (taylor 0 lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (- lambda1 lambda2) (taylor 0 lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2))))))) (taylor 0 lambda1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2))))))) (taylor 0 lambda1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda1 (- (* -1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2))))))) (taylor 0 lambda1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda1 (- (* lambda1 (- (* 1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2))))))) (taylor 0 lambda1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* 1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* 1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (+ (* -1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (+ (* 1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* 1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* 1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (cos (neg lambda2)) (taylor 0 lambda1) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) (taylor 0 lambda1) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (taylor 0 lambda1) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))))) (taylor 0 lambda1) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 lambda2)) (taylor 0 lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2))))) (taylor 0 lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2)))))) (taylor 0 lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))) (taylor 0 lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg lambda2)))) (taylor 0 lambda1) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (neg lambda2))) (* 1/2 (* lambda1 (sin (neg lambda2)))))) (taylor 0 lambda1) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (neg lambda2))) (* lambda1 (+ (* 1/4 (* lambda1 (cos (neg lambda2)))) (* 1/2 (sin (neg lambda2))))))) (taylor 0 lambda1) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (neg lambda2))) (* lambda1 (+ (* 1/2 (sin (neg lambda2))) (* lambda1 (+ (* -1/12 (* lambda1 (sin (neg lambda2)))) (* 1/4 (cos (neg lambda2))))))))) (taylor 0 lambda1) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (taylor 0 lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (taylor 0 lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))))) (taylor 0 lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (neg lambda2)))) (taylor 0 lambda1) (#s(alt #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (patch #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (* lambda1 (sin (neg lambda2))))) (* 1/2 (cos (neg lambda2)))) (taylor 0 lambda1) (#s(alt #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (patch #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* lambda1 (- (* 1/4 (* lambda1 (cos (neg lambda2)))) (* -1/2 (sin (neg lambda2)))))) (* 1/2 (cos (neg lambda2)))) (taylor 0 lambda1) (#s(alt #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (patch #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* lambda1 (- (* lambda1 (- (* -1/12 (* lambda1 (sin (neg lambda2)))) (* -1/4 (cos (neg lambda2))))) (* -1/2 (sin (neg lambda2)))))) (* 1/2 (cos (neg lambda2)))) (taylor 0 lambda1) (#s(alt #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (patch #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2))))))) (taylor 0 lambda1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2))))))) (taylor 0 lambda1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda1 (- (* -1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2))))))) (taylor 0 lambda1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda1 (- (* lambda1 (- (* 1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2))))))) (taylor 0 lambda1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 1/4 (pow lambda1 2)) (taylor 0 lambda1) (#s(alt (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda1 2) (+ 1/4 (* -1/48 (pow lambda1 2)))) (taylor 0 lambda1) (#s(alt (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda1 2) (+ 1/4 (* (pow lambda1 2) (- (* 1/1440 (pow lambda1 2)) 1/48)))) (taylor 0 lambda1) (#s(alt (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow lambda1 2) (+ 1/4 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 1/1440 (* -1/80640 (pow lambda1 2)))) 1/48)))) (taylor 0 lambda1) (#s(alt (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (cos (neg lambda2)) (taylor 0 lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) (taylor 0 lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (taylor 0 lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))))) (taylor 0 lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (neg lambda2)) (taylor 0 lambda1) (#s(alt (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) (taylor 0 lambda1) (#s(alt (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (taylor 0 lambda1) (#s(alt (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))))) (taylor 0 lambda1) (#s(alt (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (neg lambda2)))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (* lambda1 (sin (neg lambda2))))) (* 1/2 (cos (neg lambda2)))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* lambda1 (- (* 1/4 (* lambda1 (cos (neg lambda2)))) (* -1/2 (sin (neg lambda2)))))) (* 1/2 (cos (neg lambda2)))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* lambda1 (- (* lambda1 (- (* -1/12 (* lambda1 (sin (neg lambda2)))) (* -1/4 (cos (neg lambda2))))) (* -1/2 (sin (neg lambda2)))))) (* 1/2 (cos (neg lambda2)))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (neg lambda2)))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (* lambda1 (sin (neg lambda2))))) (* 1/2 (cos (neg lambda2)))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* lambda1 (- (* 1/4 (* lambda1 (cos (neg lambda2)))) (* -1/2 (sin (neg lambda2)))))) (* 1/2 (cos (neg lambda2)))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* lambda1 (- (* lambda1 (- (* -1/12 (* lambda1 (sin (neg lambda2)))) (* -1/4 (cos (neg lambda2))))) (* -1/2 (sin (neg lambda2)))))) (* 1/2 (cos (neg lambda2)))) (taylor 0 lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 lambda2) (taylor 0 lambda1) (#s(alt #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) (patch #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda1) (#s(alt #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) (patch #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda1) (#s(alt #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) (patch #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda1) (#s(alt #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) (patch #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 lambda2)) (taylor 0 lambda1) (#s(alt (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (patch (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2))))) (taylor 0 lambda1) (#s(alt (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (patch (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2)))))) (taylor 0 lambda1) (#s(alt (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (patch (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2))))))))) (taylor 0 lambda1) (#s(alt (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (patch (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (taylor inf lambda1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (taylor inf lambda1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (taylor inf lambda1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (taylor inf lambda1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 lambda1) (taylor inf lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2))))) (taylor inf lambda1) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2))))) (taylor inf lambda1) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2))))) (taylor inf lambda1) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2))))) (taylor inf lambda1) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor inf lambda1) (#s(alt (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (patch (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (patch (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (patch (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (patch (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor inf lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf lambda1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf lambda1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf lambda1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf lambda1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda1) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda1) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda1) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda1) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda1) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda1) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda1) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda1) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda1) (#s(alt #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (patch #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda1) (#s(alt #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (patch #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda1) (#s(alt #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (patch #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda1) (#s(alt #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (patch #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf lambda1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf lambda1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf lambda1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf lambda1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos lambda1))) (taylor inf lambda1) (#s(alt (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos lambda1))) (taylor inf lambda1) (#s(alt (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos lambda1))) (taylor inf lambda1) (#s(alt (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos lambda1))) (taylor inf lambda1) (#s(alt (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda1) (#s(alt (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda1) (#s(alt (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda1) (#s(alt (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda1) (#s(alt (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 lambda1) (taylor inf lambda1) (#s(alt #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) (patch #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) (patch #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) (patch #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) #<representation binary64>) () ())) ())
#s(alt (* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1)))) (taylor inf lambda1) (#s(alt #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) (patch #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (patch (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (patch (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (patch (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda1) (#s(alt (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (patch (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (taylor -inf lambda1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (taylor -inf lambda1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (taylor -inf lambda1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (taylor -inf lambda1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 lambda1) (taylor -inf lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2))) (taylor -inf lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2))) (taylor -inf lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2))) (taylor -inf lambda1) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (neg (+ lambda2 (* -1 lambda1))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (neg (+ lambda2 (* -1 lambda1))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (neg (+ lambda2 (* -1 lambda1))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (neg (+ lambda2 (* -1 lambda1))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1))))))) (taylor -inf lambda1) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1))))))) (taylor -inf lambda1) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1))))))) (taylor -inf lambda1) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1))))))) (taylor -inf lambda1) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor -inf lambda1) (#s(alt (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (patch (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (/ lambda2 lambda1) 1))) (taylor -inf lambda1) (#s(alt (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (patch (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (/ lambda2 lambda1) 1))) (taylor -inf lambda1) (#s(alt (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (patch (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (/ lambda2 lambda1) 1))) (taylor -inf lambda1) (#s(alt (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (patch (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor -inf lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (/ lambda2 lambda1) 1))) (taylor -inf lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (/ lambda2 lambda1) 1))) (taylor -inf lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (/ lambda2 lambda1) 1))) (taylor -inf lambda1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (taylor -inf lambda1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (taylor -inf lambda1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (taylor -inf lambda1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (taylor -inf lambda1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (cos (neg (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (cos (neg (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (cos (neg (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (cos (neg (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (taylor -inf lambda1) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (taylor -inf lambda1) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (taylor -inf lambda1) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))) (taylor -inf lambda1) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf lambda1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))) (taylor -inf lambda1) (#s(alt #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (patch #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))) (taylor -inf lambda1) (#s(alt #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (patch #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))) (taylor -inf lambda1) (#s(alt #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (patch #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))) (taylor -inf lambda1) (#s(alt #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (patch #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (taylor -inf lambda1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (taylor -inf lambda1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (taylor -inf lambda1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))))) (taylor -inf lambda1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos lambda1))) (taylor -inf lambda1) (#s(alt (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos lambda1))) (taylor -inf lambda1) (#s(alt (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos lambda1))) (taylor -inf lambda1) (#s(alt (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos lambda1))) (taylor -inf lambda1) (#s(alt (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (patch (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (cos (* -1 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (* -1 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (* -1 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (* -1 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (* -1 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (* -1 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (* -1 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (* -1 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))) (taylor -inf lambda1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 lambda1) (taylor -inf lambda1) (#s(alt #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) (patch #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2))) (taylor -inf lambda1) (#s(alt #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) (patch #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2))) (taylor -inf lambda1) (#s(alt #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) (patch #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2))) (taylor -inf lambda1) (#s(alt #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) (patch #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (patch (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (patch (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (patch (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (taylor -inf lambda1) (#s(alt (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (patch (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (taylor 0 lambda2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))) (+ (* 1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))) (taylor 0 lambda2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))) (+ (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))))) (taylor 0 lambda2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))) (+ (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (* lambda2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))))))) (taylor 0 lambda2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 lambda1) (taylor 0 lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos lambda1)) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (cos lambda1)) (* 1/2 (* lambda2 (sin lambda1)))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (cos lambda1)) (* lambda2 (+ (* -1/4 (* lambda2 (cos lambda1))) (* 1/2 (sin lambda1))))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (cos lambda1)) (* lambda2 (+ (* 1/2 (sin lambda1)) (* lambda2 (+ (* -1/4 (cos lambda1)) (* -1/12 (* lambda2 (sin lambda1)))))))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos lambda1) (cos phi1)))) (taylor 0 lambda2) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* 1/2 (* lambda2 (* (cos phi1) (sin lambda1)))) (* 1/2 (* (cos lambda1) (cos phi1))))) (taylor 0 lambda2) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* 1/2 (* (cos lambda1) (cos phi1))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (cos phi1)))) (* 1/2 (* (cos phi1) (sin lambda1))))))) (taylor 0 lambda2) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* 1/2 (* (cos lambda1) (cos phi1))) (* lambda2 (+ (* 1/2 (* (cos phi1) (sin lambda1))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (cos phi1))) (* -1/12 (* lambda2 (* (cos phi1) (sin lambda1)))))))))) (taylor 0 lambda2) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor 0 lambda2) (#s(alt (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (patch (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (* -1 lambda2)) (taylor 0 lambda2) (#s(alt (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (patch (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (* -1 lambda2)) (taylor 0 lambda2) (#s(alt (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (patch (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (* -1 lambda2)) (taylor 0 lambda2) (#s(alt (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (patch (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt lambda1 (taylor 0 lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (* -1 lambda2)) (taylor 0 lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (* -1 lambda2)) (taylor 0 lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (+ lambda1 (* -1 lambda2)) (taylor 0 lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))))) (taylor 0 lambda2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))))) (taylor 0 lambda2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda2 (- (* -1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))))) (taylor 0 lambda2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda2 (- (* lambda2 (- (* -1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))))) (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))))) (taylor 0 lambda2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (taylor 0 lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (cos lambda1) (taylor 0 lambda2) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (cos lambda1) (* lambda2 (sin lambda1))) (taylor 0 lambda2) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (taylor 0 lambda2) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1))))) (taylor 0 lambda2) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 lambda1)) (taylor 0 lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1))))) (taylor 0 lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1))))))) (taylor 0 lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1))))))))) (taylor 0 lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos lambda1))) (taylor 0 lambda2) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))) (taylor 0 lambda2) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/4 (* lambda2 (cos lambda1))))))) (taylor 0 lambda2) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* lambda2 (+ (* 1/12 (* lambda2 (sin lambda1))) (* 1/4 (cos lambda1)))))))) (taylor 0 lambda2) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor 0 lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (taylor 0 lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (taylor 0 lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))))) (taylor 0 lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos lambda1))) (taylor 0 lambda2) (#s(alt #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (patch #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* -1/2 (* lambda2 (sin lambda1)))) (* 1/2 (cos lambda1))) (taylor 0 lambda2) (#s(alt #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (patch #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* lambda2 (- (* 1/4 (* lambda2 (cos lambda1))) (* 1/2 (sin lambda1))))) (* 1/2 (cos lambda1))) (taylor 0 lambda2) (#s(alt #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (patch #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* lambda2 (- (* lambda2 (- (* 1/12 (* lambda2 (sin lambda1))) (* -1/4 (cos lambda1)))) (* 1/2 (sin lambda1))))) (* 1/2 (cos lambda1))) (taylor 0 lambda2) (#s(alt #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (patch #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))))) (taylor 0 lambda2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))))) (taylor 0 lambda2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda2 (- (* -1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))))) (taylor 0 lambda2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda2 (- (* lambda2 (- (* -1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))))) (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))))) (taylor 0 lambda2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (cos lambda1) (taylor 0 lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos lambda1) (* lambda2 (sin lambda1))) (taylor 0 lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (taylor 0 lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1))))) (taylor 0 lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos lambda1) (taylor 0 lambda2) (#s(alt (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos lambda1) (* lambda2 (sin lambda1))) (taylor 0 lambda2) (#s(alt (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (taylor 0 lambda2) (#s(alt (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1))))) (taylor 0 lambda2) (#s(alt (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos lambda1))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* -1/2 (* lambda2 (sin lambda1)))) (* 1/2 (cos lambda1))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* lambda2 (- (* 1/4 (* lambda2 (cos lambda1))) (* 1/2 (sin lambda1))))) (* 1/2 (cos lambda1))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* lambda2 (- (* lambda2 (- (* 1/12 (* lambda2 (sin lambda1))) (* -1/4 (cos lambda1)))) (* 1/2 (sin lambda1))))) (* 1/2 (cos lambda1))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos lambda1))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* -1/2 (* lambda2 (sin lambda1)))) (* 1/2 (cos lambda1))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* lambda2 (- (* 1/4 (* lambda2 (cos lambda1))) (* 1/2 (sin lambda1))))) (* 1/2 (cos lambda1))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* lambda2 (- (* lambda2 (- (* 1/12 (* lambda2 (sin lambda1))) (* -1/4 (cos lambda1)))) (* 1/2 (sin lambda1))))) (* 1/2 (cos lambda1))) (taylor 0 lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 lambda1) (taylor 0 lambda2) (#s(alt #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) (patch #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda2) (#s(alt #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) (patch #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda2) (#s(alt #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) (patch #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 lambda2) (* 1/2 lambda1)) (taylor 0 lambda2) (#s(alt #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) (patch #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 lambda1)) (taylor 0 lambda2) (#s(alt (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (patch (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1))))) (taylor 0 lambda2) (#s(alt (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (patch (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1))))))) (taylor 0 lambda2) (#s(alt (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (patch (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1))))))))) (taylor 0 lambda2) (#s(alt (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (patch (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (taylor inf lambda2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (taylor inf lambda2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (taylor inf lambda2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (taylor inf lambda2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 lambda2) (taylor inf lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2)) (taylor inf lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2)) (taylor inf lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2)) (taylor inf lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2))))) (taylor inf lambda2) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2))))) (taylor inf lambda2) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2))))) (taylor inf lambda2) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2))))) (taylor inf lambda2) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* -1 lambda2) (taylor inf lambda2) (#s(alt (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (patch (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (/ lambda1 lambda2) 1)) (taylor inf lambda2) (#s(alt (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (patch (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (/ lambda1 lambda2) 1)) (taylor inf lambda2) (#s(alt (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (patch (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (/ lambda1 lambda2) 1)) (taylor inf lambda2) (#s(alt (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (patch (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 lambda2) (taylor inf lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (/ lambda1 lambda2) 1)) (taylor inf lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (/ lambda1 lambda2) 1)) (taylor inf lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (/ lambda1 lambda2) 1)) (taylor inf lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf lambda2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf lambda2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf lambda2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf lambda2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda2) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda2) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda2) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda2) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda2) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda2) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda2) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda2) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda2) (#s(alt #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (patch #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda2) (#s(alt #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (patch #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda2) (#s(alt #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (patch #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda2) (#s(alt #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (patch #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf lambda2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf lambda2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf lambda2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf lambda2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda2) (#s(alt (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda2) (#s(alt (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda2) (#s(alt (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (- lambda1 lambda2)) (taylor inf lambda2) (#s(alt (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 lambda2) (taylor inf lambda2) (#s(alt #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) (patch #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2)) (taylor inf lambda2) (#s(alt #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) (patch #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2)) (taylor inf lambda2) (#s(alt #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) (patch #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) #<representation binary64>) () ())) ())
#s(alt (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2)) (taylor inf lambda2) (#s(alt #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) (patch #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (patch (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (patch (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (patch (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- lambda1 lambda2))) (taylor inf lambda2) (#s(alt (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (patch (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (taylor -inf lambda2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (taylor -inf lambda2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (taylor -inf lambda2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (taylor -inf lambda2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 lambda2) (taylor -inf lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (cos (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (patch (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (+ lambda1 (* -1 lambda2)))))) (taylor -inf lambda2) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (+ lambda1 (* -1 lambda2)))))) (taylor -inf lambda2) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (+ lambda1 (* -1 lambda2)))))) (taylor -inf lambda2) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (+ lambda1 (* -1 lambda2)))))) (taylor -inf lambda2) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* -1 lambda2) (taylor -inf lambda2) (#s(alt (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (patch (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (patch (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (patch (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (patch (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 lambda2) (taylor -inf lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (taylor -inf lambda2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (taylor -inf lambda2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (taylor -inf lambda2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (taylor -inf lambda2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor -inf lambda2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (cos (+ lambda1 (* -1 lambda2))) (taylor -inf lambda2) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (cos (+ lambda1 (* -1 lambda2))) (taylor -inf lambda2) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (cos (+ lambda1 (* -1 lambda2))) (taylor -inf lambda2) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (cos (+ lambda1 (* -1 lambda2))) (taylor -inf lambda2) (#s(alt (cos.f64 (-.f64 lambda1 lambda2)) (patch (cos.f64 (-.f64 lambda1 lambda2)) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf lambda2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (patch #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (patch #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (patch #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (patch #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (taylor -inf lambda2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (taylor -inf lambda2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (taylor -inf lambda2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (taylor -inf lambda2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (cos (+ lambda1 (* -1 lambda2))) (taylor -inf lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (+ lambda1 (* -1 lambda2))) (taylor -inf lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (+ lambda1 (* -1 lambda2))) (taylor -inf lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (+ lambda1 (* -1 lambda2))) (taylor -inf lambda2) (#s(alt (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (+ lambda1 (* -1 lambda2))) (taylor -inf lambda2) (#s(alt (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (+ lambda1 (* -1 lambda2))) (taylor -inf lambda2) (#s(alt (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (+ lambda1 (* -1 lambda2))) (taylor -inf lambda2) (#s(alt (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (cos (+ lambda1 (* -1 lambda2))) (taylor -inf lambda2) (#s(alt (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (patch (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))) (taylor -inf lambda2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 lambda2) (taylor -inf lambda2) (#s(alt #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) (patch #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) (patch #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) (patch #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2))))) (taylor -inf lambda2) (#s(alt #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) (patch #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (patch (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (patch (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (patch (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (taylor -inf lambda2) (#s(alt (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (patch (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1)))) (taylor 0 phi2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/2 (cos phi1)) (* 1/2 (* phi2 (sin phi1)))))) (taylor 0 phi2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/4 (cos phi1)) (* 1/2 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))))) (taylor 0 phi2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/4 (cos phi1)) (+ (* -1/12 (* phi2 (sin phi1))) (* 1/2 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))))))) (taylor 0 phi2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (cos phi1) (taylor 0 phi2) (#s(alt (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (patch (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (cos phi1) (* phi2 (sin phi1))) (taylor 0 phi2) (#s(alt (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (patch (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (cos phi1) (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (cos phi1)))))) (taylor 0 phi2) (#s(alt (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (patch (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1)))))))) (taylor 0 phi2) (#s(alt (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (patch (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt phi1 (taylor 0 phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ phi1 (* -1 phi2)) (taylor 0 phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ phi1 (* -1 phi2)) (taylor 0 phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (+ phi1 (* -1 phi2)) (taylor 0 phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos phi1))) (taylor 0 phi2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* -1/2 (* phi2 (sin phi1)))) (* 1/2 (cos phi1))) (taylor 0 phi2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* phi2 (- (* 1/4 (* phi2 (cos phi1))) (* 1/2 (sin phi1))))) (* 1/2 (cos phi1))) (taylor 0 phi2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* phi2 (- (* phi2 (- (* 1/12 (* phi2 (sin phi1))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1))))) (* 1/2 (cos phi1))) (taylor 0 phi2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos phi1))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* phi2 (sin phi1))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (- (* -1/4 (cos phi1)) (* -1/2 (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (- (+ (* -1/4 (cos phi1)) (* -1/12 (* phi2 (sin phi1)))) (* -1/2 (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 phi1) (taylor 0 phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (taylor 0 phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (taylor 0 phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))))) (taylor 0 phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 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))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))))))) (taylor 0 phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos phi1))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* phi2 (sin phi1))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (- (* -1/4 (cos phi1)) (* -1/2 (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (- (+ (* -1/4 (cos phi1)) (* -1/12 (* phi2 (sin phi1)))) (* -1/2 (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 phi1) (taylor 0 phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 phi1)) (taylor 0 phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1))))) (taylor 0 phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1))))))) (taylor 0 phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1))))))))) (taylor 0 phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (taylor inf phi2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (taylor inf phi2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (taylor inf phi2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (taylor inf phi2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) (taylor inf phi2) (#s(alt (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (patch (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) (taylor inf phi2) (#s(alt (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (patch (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) (taylor inf phi2) (#s(alt (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (patch (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) (taylor inf phi2) (#s(alt (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (patch (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor inf phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (/ phi1 phi2) 1)) (taylor inf phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (/ phi1 phi2) 1)) (taylor inf phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (/ phi1 phi2) 1)) (taylor inf phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- phi1 phi2)))) (taylor inf phi2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- phi1 phi2)))) (taylor inf phi2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- phi1 phi2)))) (taylor inf phi2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- phi1 phi2)))) (taylor inf phi2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf phi2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf phi2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf phi2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf phi2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 phi2) (taylor inf phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2)) (taylor inf phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2)) (taylor inf phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2)) (taylor inf phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf phi2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf phi2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf phi2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf phi2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 phi2) (taylor inf phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2)) (taylor inf phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2)) (taylor inf phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2)) (taylor inf phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (taylor -inf phi2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (taylor -inf phi2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (taylor -inf phi2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (taylor -inf phi2) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) (taylor -inf phi2) (#s(alt (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (patch (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) (taylor -inf phi2) (#s(alt (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (patch (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) (taylor -inf phi2) (#s(alt (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (patch (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) (taylor -inf phi2) (#s(alt (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (patch (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor -inf phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (taylor -inf phi2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (taylor -inf phi2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (taylor -inf phi2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (taylor -inf phi2) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor -inf phi2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor -inf phi2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor -inf phi2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor -inf phi2) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 phi2) (taylor -inf phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2)) (taylor -inf phi2) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf phi2) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor -inf phi2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor -inf phi2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor -inf phi2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor -inf phi2) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 phi2) (taylor -inf phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2))))) (taylor -inf phi2) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (+ phi1 (* -1 phi2)))) (taylor -inf phi2) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi2)))) (taylor 0 phi1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/2 (cos phi2)) (* 1/2 (* phi1 (sin phi2)))))) (taylor 0 phi1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/2 (cos phi2)) (* phi1 (+ (* 1/2 (sin phi2)) (* phi1 (+ (* -1/4 (cos phi2)) (* 1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))))) (taylor 0 phi1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/2 (cos phi2)) (* phi1 (+ (* 1/2 (sin phi2)) (* phi1 (+ (* -1/4 (cos phi2)) (+ (* -1/12 (* phi1 (sin phi2))) (* 1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))))))) (taylor 0 phi1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (cos phi2) (taylor 0 phi1) (#s(alt (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (patch (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (cos phi2) (* phi1 (sin phi2))) (taylor 0 phi1) (#s(alt (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (patch (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (cos phi2) (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (cos phi2)))))) (taylor 0 phi1) (#s(alt (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (patch (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (cos phi2) (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (cos phi2)) (* -1/6 (* phi1 (sin phi2)))))))) (taylor 0 phi1) (#s(alt (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (patch (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (* -1 phi2) (taylor 0 phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (- phi1 phi2) (taylor 0 phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (- phi1 phi2) (taylor 0 phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (- phi1 phi2) (taylor 0 phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (neg phi2)))) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (* phi1 (sin (neg phi2))))) (* 1/2 (cos (neg phi2)))) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* phi1 (- (* 1/4 (* phi1 (cos (neg phi2)))) (* -1/2 (sin (neg phi2)))))) (* 1/2 (cos (neg phi2)))) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* phi1 (- (* phi1 (- (* -1/12 (* phi1 (sin (neg phi2)))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2)))))) (* 1/2 (cos (neg phi2)))) (taylor 0 phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (taylor 0 phi1) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/4 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* 1/2 (cos (- lambda1 lambda2))))) (taylor 0 phi1) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* 1/2 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/4 (cos (- lambda1 lambda2))) (* 1/48 (* (pow phi1 2) (cos (- lambda1 lambda2)))))))) (taylor 0 phi1) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* 1/2 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/4 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/1440 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* 1/48 (cos (- lambda1 lambda2))))))))) (taylor 0 phi1) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (neg phi2)))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* -1/2 (* phi1 (sin (neg phi2)))) (* 1/2 (cos (neg phi2))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (- (* -1/4 (cos (neg phi2))) (* -1/2 (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (- (+ (* -1/4 (cos (neg phi2))) (* 1/12 (* phi1 (sin (neg phi2))))) (* -1/2 (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 phi2) (taylor 0 phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (taylor 0 phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* -1/2 (* (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (taylor 0 phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))))) (taylor 0 phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 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))))) (* -1/2 (/ (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))))))) (taylor 0 phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (neg phi2)))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* -1/2 (* phi1 (sin (neg phi2)))) (* 1/2 (cos (neg phi2))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (- (* -1/4 (cos (neg phi2))) (* -1/2 (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (- (+ (* -1/4 (cos (neg phi2))) (* 1/12 (* phi1 (sin (neg phi2))))) (* -1/2 (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))) (taylor 0 phi1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 phi2) (taylor 0 phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 phi2) (* 1/2 phi1)) (taylor 0 phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 phi2)) (taylor 0 phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2))))) (taylor 0 phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2)))))) (taylor 0 phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2))))))))) (taylor 0 phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (taylor inf phi1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (taylor inf phi1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (taylor inf phi1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (taylor inf phi1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) (taylor inf phi1) (#s(alt (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (patch (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) (taylor inf phi1) (#s(alt (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (patch (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) (taylor inf phi1) (#s(alt (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (patch (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) (taylor inf phi1) (#s(alt (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (patch (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt phi1 (taylor inf phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (* -1 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (* -1 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1 (* -1 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- phi1 phi2)))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- phi1 phi2)))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- phi1 phi2)))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (- phi1 phi2)))) (taylor inf phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2))))) (taylor inf phi1) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2))))) (taylor inf phi1) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2))))) (taylor inf phi1) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2))))) (taylor inf phi1) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf phi1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf phi1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf phi1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf phi1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 phi1) (taylor inf phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (taylor inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf phi1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf phi1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf phi1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor inf phi1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 phi1) (taylor inf phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1)))) (taylor inf phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* 1/2 (- phi1 phi2))) (taylor inf phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (taylor -inf phi1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (taylor -inf phi1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (taylor -inf phi1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (taylor -inf phi1) (#s(alt (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (patch (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) (taylor -inf phi1) (#s(alt (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (patch (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) (taylor -inf phi1) (#s(alt (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (patch (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) (taylor -inf phi1) (#s(alt (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (patch (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) (taylor -inf phi1) (#s(alt (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (patch (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #<representation binary64>) () ())) ())
#s(alt phi1 (taylor -inf phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (/ phi2 phi1) 1))) (taylor -inf phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (/ phi2 phi1) 1))) (taylor -inf phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (/ phi2 phi1) 1))) (taylor -inf phi1) (#s(alt (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (patch (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (taylor -inf phi1) (#s(alt (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (patch (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2))))) (taylor -inf phi1) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2))))) (taylor -inf phi1) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2))))) (taylor -inf phi1) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2))))) (taylor -inf phi1) (#s(alt (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (patch (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor -inf phi1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor -inf phi1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor -inf phi1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor -inf phi1) (#s(alt (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (patch (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 phi1) (taylor -inf phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2))) (taylor -inf phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2))) (taylor -inf phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2))) (taylor -inf phi1) (#s(alt (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (patch (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2)) (taylor -inf phi1) (#s(alt (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) (patch (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (taylor -inf phi1) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (patch (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor -inf phi1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor -inf phi1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor -inf phi1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))) (taylor -inf phi1) (#s(alt #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) (patch #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 phi1) (taylor -inf phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2))) (taylor -inf phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2))) (taylor -inf phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2))) (taylor -inf phi1) (#s(alt #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) (patch #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (sin (* -1/2 (+ phi2 (* -1 phi1)))) (taylor -inf phi1) (#s(alt (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) (patch (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #<representation binary64>) () ())) ())
Calls

12 calls:

TimeVariablePointExpression
40.0ms
lambda2
@0
((+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (/ (- lambda1 lambda2) 2) (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) (* 2 (* 1/2 (- phi1 phi2))) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (/ 2 (/ 2 (- lambda1 lambda2))) (* 2 (* 1/2 (- lambda1 lambda2))) (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (/ (- phi1 phi2) 2) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (sin (/ (- lambda1 lambda2) 2)))) (cos (- lambda1 lambda2)) (sin (/ (- lambda1 lambda2) 2)) (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+ (* (cos lambda1) -1/2) 1/2) (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos (/ 2 (/ 2 (- lambda1 lambda2)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (- 1/2 (* 1/2 (cos (/ 2 (/ 2 (- lambda1 lambda2)))))) (/ (- lambda1 lambda2) 2) (/ (- phi1 phi2) 2) (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- phi1 phi2) 2)))
11.0ms
lambda2
@inf
((+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (/ (- lambda1 lambda2) 2) (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) (* 2 (* 1/2 (- phi1 phi2))) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (/ 2 (/ 2 (- lambda1 lambda2))) (* 2 (* 1/2 (- lambda1 lambda2))) (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (/ (- phi1 phi2) 2) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (sin (/ (- lambda1 lambda2) 2)))) (cos (- lambda1 lambda2)) (sin (/ (- lambda1 lambda2) 2)) (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+ (* (cos lambda1) -1/2) 1/2) (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos (/ 2 (/ 2 (- lambda1 lambda2)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (- 1/2 (* 1/2 (cos (/ 2 (/ 2 (- lambda1 lambda2)))))) (/ (- lambda1 lambda2) 2) (/ (- phi1 phi2) 2) (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- phi1 phi2) 2)))
10.0ms
lambda1
@inf
((+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (/ (- lambda1 lambda2) 2) (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) (* 2 (* 1/2 (- phi1 phi2))) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (/ 2 (/ 2 (- lambda1 lambda2))) (* 2 (* 1/2 (- lambda1 lambda2))) (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (/ (- phi1 phi2) 2) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (sin (/ (- lambda1 lambda2) 2)))) (cos (- lambda1 lambda2)) (sin (/ (- lambda1 lambda2) 2)) (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+ (* (cos lambda1) -1/2) 1/2) (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos (/ 2 (/ 2 (- lambda1 lambda2)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (- 1/2 (* 1/2 (cos (/ 2 (/ 2 (- lambda1 lambda2)))))) (/ (- lambda1 lambda2) 2) (/ (- phi1 phi2) 2) (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- phi1 phi2) 2)))
10.0ms
phi1
@inf
((+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (/ (- lambda1 lambda2) 2) (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) (* 2 (* 1/2 (- phi1 phi2))) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (/ 2 (/ 2 (- lambda1 lambda2))) (* 2 (* 1/2 (- lambda1 lambda2))) (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (/ (- phi1 phi2) 2) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (sin (/ (- lambda1 lambda2) 2)))) (cos (- lambda1 lambda2)) (sin (/ (- lambda1 lambda2) 2)) (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+ (* (cos lambda1) -1/2) 1/2) (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos (/ 2 (/ 2 (- lambda1 lambda2)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (- 1/2 (* 1/2 (cos (/ 2 (/ 2 (- lambda1 lambda2)))))) (/ (- lambda1 lambda2) 2) (/ (- phi1 phi2) 2) (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- phi1 phi2) 2)))
10.0ms
lambda1
@-inf
((+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (/ (- lambda1 lambda2) 2) (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) (* 2 (* 1/2 (- phi1 phi2))) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (/ 2 (/ 2 (- lambda1 lambda2))) (* 2 (* 1/2 (- lambda1 lambda2))) (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (/ (- phi1 phi2) 2) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (sin (/ (- lambda1 lambda2) 2)))) (cos (- lambda1 lambda2)) (sin (/ (- lambda1 lambda2) 2)) (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+ (* (cos lambda1) -1/2) 1/2) (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos (/ 2 (/ 2 (- lambda1 lambda2)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (- 1/2 (* 1/2 (cos (/ 2 (/ 2 (- lambda1 lambda2)))))) (/ (- lambda1 lambda2) 2) (/ (- phi1 phi2) 2) (sin (/ (- lambda1 lambda2) 2)) (sin (/ (- phi1 phi2) 2)))

simplify285.0ms (0.6%)

Memory
14.7MiB live, 406.3MiB allocated
Algorithm
1×egg-herbie
Rules
10 984×lower-fma.f64
10 984×lower-fma.f32
7 644×lower-+.f64
7 644×lower-+.f32
5 658×lower-*.f64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0114820435
1382119903
0800218642
Stop Event
1×iter limit
1×node limit
Counts
912 → 903
Calls
Call 1
Inputs
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))) (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))) (+ (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))) (+ (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))))))
(* -1/2 lambda2)
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(* 1/2 (cos (neg lambda2)))
(+ (* -1/2 (* lambda1 (sin (neg lambda2)))) (* 1/2 (cos (neg lambda2))))
(+ (* 1/2 (cos (neg lambda2))) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/4 (* lambda1 (cos (neg lambda2)))))))
(+ (* 1/2 (cos (neg lambda2))) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* lambda1 (+ (* -1/4 (cos (neg lambda2))) (* 1/12 (* lambda1 (sin (neg lambda2)))))))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (neg lambda2)))))
(+ 1/2 (+ (* -1/2 (* lambda1 (* (cos phi1) (sin (neg lambda2))))) (* 1/2 (* (cos phi1) (cos (neg lambda2))))))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (cos (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (sin (neg lambda2)))) (* -1/4 (* lambda1 (* (cos phi1) (cos (neg lambda2)))))))))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (cos (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (sin (neg lambda2)))) (* lambda1 (+ (* -1/4 (* (cos phi1) (cos (neg lambda2)))) (* 1/12 (* lambda1 (* (cos phi1) (sin (neg lambda2)))))))))))
(* -1 lambda2)
(- lambda1 lambda2)
(- lambda1 lambda2)
(- lambda1 lambda2)
(* -1 lambda2)
(- lambda1 lambda2)
(- lambda1 lambda2)
(- lambda1 lambda2)
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2)))))))
(- (+ 1/2 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2)))))))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda1 (- (* -1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2)))))))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda1 (- (* lambda1 (- (* 1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* 1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* 1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (+ (* -1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (+ (* 1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* 1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* 1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(cos (neg lambda2))
(+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))
(+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))
(+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))
(sin (* -1/2 lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(+ 1/2 (* -1/2 (cos (neg lambda2))))
(+ 1/2 (+ (* -1/2 (cos (neg lambda2))) (* 1/2 (* lambda1 (sin (neg lambda2))))))
(+ 1/2 (+ (* -1/2 (cos (neg lambda2))) (* lambda1 (+ (* 1/4 (* lambda1 (cos (neg lambda2)))) (* 1/2 (sin (neg lambda2)))))))
(+ 1/2 (+ (* -1/2 (cos (neg lambda2))) (* lambda1 (+ (* 1/2 (sin (neg lambda2))) (* lambda1 (+ (* -1/12 (* lambda1 (sin (neg lambda2)))) (* 1/4 (cos (neg lambda2)))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(- 1/2 (* 1/2 (cos (neg lambda2))))
(- (+ 1/2 (* 1/2 (* lambda1 (sin (neg lambda2))))) (* 1/2 (cos (neg lambda2))))
(- (+ 1/2 (* lambda1 (- (* 1/4 (* lambda1 (cos (neg lambda2)))) (* -1/2 (sin (neg lambda2)))))) (* 1/2 (cos (neg lambda2))))
(- (+ 1/2 (* lambda1 (- (* lambda1 (- (* -1/12 (* lambda1 (sin (neg lambda2)))) (* -1/4 (cos (neg lambda2))))) (* -1/2 (sin (neg lambda2)))))) (* 1/2 (cos (neg lambda2))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2)))))))
(- (+ 1/2 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2)))))))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda1 (- (* -1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2)))))))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda1 (- (* lambda1 (- (* 1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2)))))))
(* 1/4 (pow lambda1 2))
(* (pow lambda1 2) (+ 1/4 (* -1/48 (pow lambda1 2))))
(* (pow lambda1 2) (+ 1/4 (* (pow lambda1 2) (- (* 1/1440 (pow lambda1 2)) 1/48))))
(* (pow lambda1 2) (+ 1/4 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 1/1440 (* -1/80640 (pow lambda1 2)))) 1/48))))
(cos (neg lambda2))
(+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))
(+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))
(+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))
(cos (neg lambda2))
(+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))
(+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))
(+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))
(- 1/2 (* 1/2 (cos (neg lambda2))))
(- (+ 1/2 (* 1/2 (* lambda1 (sin (neg lambda2))))) (* 1/2 (cos (neg lambda2))))
(- (+ 1/2 (* lambda1 (- (* 1/4 (* lambda1 (cos (neg lambda2)))) (* -1/2 (sin (neg lambda2)))))) (* 1/2 (cos (neg lambda2))))
(- (+ 1/2 (* lambda1 (- (* lambda1 (- (* -1/12 (* lambda1 (sin (neg lambda2)))) (* -1/4 (cos (neg lambda2))))) (* -1/2 (sin (neg lambda2)))))) (* 1/2 (cos (neg lambda2))))
(- 1/2 (* 1/2 (cos (neg lambda2))))
(- (+ 1/2 (* 1/2 (* lambda1 (sin (neg lambda2))))) (* 1/2 (cos (neg lambda2))))
(- (+ 1/2 (* lambda1 (- (* 1/4 (* lambda1 (cos (neg lambda2)))) (* -1/2 (sin (neg lambda2)))))) (* 1/2 (cos (neg lambda2))))
(- (+ 1/2 (* lambda1 (- (* lambda1 (- (* -1/12 (* lambda1 (sin (neg lambda2)))) (* -1/4 (cos (neg lambda2))))) (* -1/2 (sin (neg lambda2)))))) (* 1/2 (cos (neg lambda2))))
(* -1/2 lambda2)
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(sin (* -1/2 lambda2))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(* 1/2 lambda1)
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(* 1/2 (cos (- lambda1 lambda2)))
(* 1/2 (cos (- lambda1 lambda2)))
(* 1/2 (cos (- lambda1 lambda2)))
(* 1/2 (cos (- lambda1 lambda2)))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2)))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2)))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2)))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2)))))
lambda1
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
lambda1
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(+ 1/2 (* -1/2 (cos lambda1)))
(+ 1/2 (* -1/2 (cos lambda1)))
(+ 1/2 (* -1/2 (cos lambda1)))
(+ 1/2 (* -1/2 (cos lambda1)))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(* 1/2 lambda1)
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(* 1/2 lambda1)
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(* 1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))
(* 1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))
(* 1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))
(* 1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1)))))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1)))))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1)))))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1)))))))
lambda1
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
lambda1
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos (neg (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))
(+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))
(+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))
(+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))))
(+ 1/2 (* -1/2 (cos lambda1)))
(+ 1/2 (* -1/2 (cos lambda1)))
(+ 1/2 (* -1/2 (cos lambda1)))
(+ 1/2 (* -1/2 (cos lambda1)))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(* 1/2 lambda1)
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))) (+ (* 1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))) (+ (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))) (+ (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (* lambda2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))))))))
(* 1/2 lambda1)
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(* 1/2 (cos lambda1))
(+ (* 1/2 (cos lambda1)) (* 1/2 (* lambda2 (sin lambda1))))
(+ (* 1/2 (cos lambda1)) (* lambda2 (+ (* -1/4 (* lambda2 (cos lambda1))) (* 1/2 (sin lambda1)))))
(+ (* 1/2 (cos lambda1)) (* lambda2 (+ (* 1/2 (sin lambda1)) (* lambda2 (+ (* -1/4 (cos lambda1)) (* -1/12 (* lambda2 (sin lambda1))))))))
(+ 1/2 (* 1/2 (* (cos lambda1) (cos phi1))))
(+ 1/2 (+ (* 1/2 (* lambda2 (* (cos phi1) (sin lambda1)))) (* 1/2 (* (cos lambda1) (cos phi1)))))
(+ 1/2 (+ (* 1/2 (* (cos lambda1) (cos phi1))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (cos phi1)))) (* 1/2 (* (cos phi1) (sin lambda1)))))))
(+ 1/2 (+ (* 1/2 (* (cos lambda1) (cos phi1))) (* lambda2 (+ (* 1/2 (* (cos phi1) (sin lambda1))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (cos phi1))) (* -1/12 (* lambda2 (* (cos phi1) (sin lambda1))))))))))
lambda1
(+ lambda1 (* -1 lambda2))
(+ lambda1 (* -1 lambda2))
(+ lambda1 (* -1 lambda2))
lambda1
(+ lambda1 (* -1 lambda2))
(+ lambda1 (* -1 lambda2))
(+ lambda1 (* -1 lambda2))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda2 (- (* -1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda2 (- (* lambda2 (- (* -1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))))) (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(cos lambda1)
(+ (cos lambda1) (* lambda2 (sin lambda1)))
(+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))
(+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))
(sin (* 1/2 lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(+ 1/2 (* -1/2 (cos lambda1)))
(+ 1/2 (+ (* -1/2 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))
(+ 1/2 (+ (* -1/2 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/4 (* lambda2 (cos lambda1)))))))
(+ 1/2 (+ (* -1/2 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* lambda2 (+ (* 1/12 (* lambda2 (sin lambda1))) (* 1/4 (cos lambda1))))))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(- 1/2 (* 1/2 (cos lambda1)))
(- (+ 1/2 (* -1/2 (* lambda2 (sin lambda1)))) (* 1/2 (cos lambda1)))
(- (+ 1/2 (* lambda2 (- (* 1/4 (* lambda2 (cos lambda1))) (* 1/2 (sin lambda1))))) (* 1/2 (cos lambda1)))
(- (+ 1/2 (* lambda2 (- (* lambda2 (- (* 1/12 (* lambda2 (sin lambda1))) (* -1/4 (cos lambda1)))) (* 1/2 (sin lambda1))))) (* 1/2 (cos lambda1)))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda2 (- (* -1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda2 (- (* lambda2 (- (* -1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))))) (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))
(cos lambda1)
(+ (cos lambda1) (* lambda2 (sin lambda1)))
(+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))
(+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))
(cos lambda1)
(+ (cos lambda1) (* lambda2 (sin lambda1)))
(+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))
(+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))
(- 1/2 (* 1/2 (cos lambda1)))
(- (+ 1/2 (* -1/2 (* lambda2 (sin lambda1)))) (* 1/2 (cos lambda1)))
(- (+ 1/2 (* lambda2 (- (* 1/4 (* lambda2 (cos lambda1))) (* 1/2 (sin lambda1))))) (* 1/2 (cos lambda1)))
(- (+ 1/2 (* lambda2 (- (* lambda2 (- (* 1/12 (* lambda2 (sin lambda1))) (* -1/4 (cos lambda1)))) (* 1/2 (sin lambda1))))) (* 1/2 (cos lambda1)))
(- 1/2 (* 1/2 (cos lambda1)))
(- (+ 1/2 (* -1/2 (* lambda2 (sin lambda1)))) (* 1/2 (cos lambda1)))
(- (+ 1/2 (* lambda2 (- (* 1/4 (* lambda2 (cos lambda1))) (* 1/2 (sin lambda1))))) (* 1/2 (cos lambda1)))
(- (+ 1/2 (* lambda2 (- (* lambda2 (- (* 1/12 (* lambda2 (sin lambda1))) (* -1/4 (cos lambda1)))) (* 1/2 (sin lambda1))))) (* 1/2 (cos lambda1)))
(* 1/2 lambda1)
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(sin (* 1/2 lambda1))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(* -1/2 lambda2)
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(* 1/2 (cos (- lambda1 lambda2)))
(* 1/2 (cos (- lambda1 lambda2)))
(* 1/2 (cos (- lambda1 lambda2)))
(* 1/2 (cos (- lambda1 lambda2)))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2)))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2)))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2)))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2)))))
(* -1 lambda2)
(* lambda2 (- (/ lambda1 lambda2) 1))
(* lambda2 (- (/ lambda1 lambda2) 1))
(* lambda2 (- (/ lambda1 lambda2) 1))
(* -1 lambda2)
(* lambda2 (- (/ lambda1 lambda2) 1))
(* lambda2 (- (/ lambda1 lambda2) 1))
(* lambda2 (- (/ lambda1 lambda2) 1))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(cos (- lambda1 lambda2))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(* -1/2 lambda2)
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin (* 1/2 (- lambda1 lambda2)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(* -1/2 lambda2)
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(* 1/2 (cos (+ lambda1 (* -1 lambda2))))
(* 1/2 (cos (+ lambda1 (* -1 lambda2))))
(* 1/2 (cos (+ lambda1 (* -1 lambda2))))
(* 1/2 (cos (+ lambda1 (* -1 lambda2))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (+ lambda1 (* -1 lambda2))))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (+ lambda1 (* -1 lambda2))))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (+ lambda1 (* -1 lambda2))))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (+ lambda1 (* -1 lambda2))))))
(* -1 lambda2)
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(* -1 lambda2)
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))
(+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))
(+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))
(+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))))))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(cos (+ lambda1 (* -1 lambda2)))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(* -1/2 lambda2)
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(+ 1/2 (+ (* -1 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))
(+ 1/2 (+ (* -1 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/2 (cos phi1)) (* 1/2 (* phi2 (sin phi1))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/4 (cos phi1)) (* 1/2 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/4 (cos phi1)) (+ (* -1/12 (* phi2 (sin phi1))) (* 1/2 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))))))
(+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(cos phi1)
(+ (cos phi1) (* phi2 (sin phi1)))
(+ (cos phi1) (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (cos phi1))))))
(+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))))))
phi1
(+ phi1 (* -1 phi2))
(+ phi1 (* -1 phi2))
(+ phi1 (* -1 phi2))
(- 1/2 (* 1/2 (cos phi1)))
(- (+ 1/2 (* -1/2 (* phi2 (sin phi1)))) (* 1/2 (cos phi1)))
(- (+ 1/2 (* phi2 (- (* 1/4 (* phi2 (cos phi1))) (* 1/2 (sin phi1))))) (* 1/2 (cos phi1)))
(- (+ 1/2 (* phi2 (- (* phi2 (- (* 1/12 (* phi2 (sin phi1))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1))))) (* 1/2 (cos phi1)))
(- (+ 1/2 (* 1/2 (cos phi1))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(- (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* phi2 (sin phi1))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(- (+ 1/2 (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (- (* -1/4 (cos phi1)) (* -1/2 (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(- (+ 1/2 (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (- (+ (* -1/4 (cos phi1)) (* -1/12 (* phi2 (sin phi1)))) (* -1/2 (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(* 1/2 phi1)
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))
(sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 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))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))
(- (+ 1/2 (* 1/2 (cos phi1))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(- (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* phi2 (sin phi1))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(- (+ 1/2 (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (- (* -1/4 (cos phi1)) (* -1/2 (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(- (+ 1/2 (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (- (+ (* -1/4 (cos phi1)) (* -1/12 (* phi2 (sin phi1)))) (* -1/2 (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(* 1/2 phi1)
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(sin (* 1/2 phi1))
(+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1)))))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))
(+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))
(+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))
(+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))
(* -1 phi2)
(* phi2 (- (/ phi1 phi2) 1))
(* phi2 (- (/ phi1 phi2) 1))
(* phi2 (- (/ phi1 phi2) 1))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(* -1/2 phi2)
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(* -1/2 phi2)
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))
(+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))
(+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))
(+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))
(* -1 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(* -1/2 phi2)
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(* -1/2 phi2)
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(+ 1/2 (+ (* -1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi2))))
(+ 1/2 (+ (* -1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/2 (cos phi2)) (* 1/2 (* phi1 (sin phi2))))))
(+ 1/2 (+ (* -1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/2 (cos phi2)) (* phi1 (+ (* 1/2 (sin phi2)) (* phi1 (+ (* -1/4 (cos phi2)) (* 1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))))))
(+ 1/2 (+ (* -1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/2 (cos phi2)) (* phi1 (+ (* 1/2 (sin phi2)) (* phi1 (+ (* -1/4 (cos phi2)) (+ (* -1/12 (* phi1 (sin phi2))) (* 1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(cos phi2)
(+ (cos phi2) (* phi1 (sin phi2)))
(+ (cos phi2) (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (cos phi2))))))
(+ (cos phi2) (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (cos phi2)) (* -1/6 (* phi1 (sin phi2))))))))
(* -1 phi2)
(- phi1 phi2)
(- phi1 phi2)
(- phi1 phi2)
(- 1/2 (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (* 1/2 (* phi1 (sin (neg phi2))))) (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (* phi1 (- (* 1/4 (* phi1 (cos (neg phi2)))) (* -1/2 (sin (neg phi2)))))) (* 1/2 (cos (neg phi2))))
(- (+ 1/2 (* phi1 (- (* phi1 (- (* -1/12 (* phi1 (sin (neg phi2)))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2)))))) (* 1/2 (cos (neg phi2))))
(+ 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(+ 1/2 (+ (* -1/4 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* 1/2 (cos (- lambda1 lambda2)))))
(+ 1/2 (+ (* 1/2 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/4 (cos (- lambda1 lambda2))) (* 1/48 (* (pow phi1 2) (cos (- lambda1 lambda2))))))))
(+ 1/2 (+ (* 1/2 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/4 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/1440 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* 1/48 (cos (- lambda1 lambda2)))))))))
(- (+ 1/2 (* 1/2 (cos (neg phi2)))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(- (+ 1/2 (+ (* -1/2 (* phi1 (sin (neg phi2)))) (* 1/2 (cos (neg phi2))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(- (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (- (* -1/4 (cos (neg phi2))) (* -1/2 (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(- (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (- (+ (* -1/4 (cos (neg phi2))) (* 1/12 (* phi1 (sin (neg phi2))))) (* -1/2 (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(* -1/2 phi2)
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* -1/2 (* (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 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))))) (* -1/2 (/ (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))))))
(- (+ 1/2 (* 1/2 (cos (neg phi2)))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(- (+ 1/2 (+ (* -1/2 (* phi1 (sin (neg phi2)))) (* 1/2 (cos (neg phi2))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(- (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (- (* -1/4 (cos (neg phi2))) (* -1/2 (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(- (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (- (+ (* -1/4 (cos (neg phi2))) (* 1/12 (* phi1 (sin (neg phi2))))) (* -1/2 (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(* -1/2 phi2)
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(+ (* -1/2 phi2) (* 1/2 phi1))
(sin (* -1/2 phi2))
(+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2))))))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))
(+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))
(+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))
(+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2)))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2)))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2)))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2)))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(* 1/2 phi1)
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(* 1/2 phi1)
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(sin (* 1/2 (- phi1 phi2)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))
(+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))
(+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))
(+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))
phi1
(* -1 (* phi1 (- (/ phi2 phi1) 1)))
(* -1 (* phi1 (- (/ phi2 phi1) 1)))
(* -1 (* phi1 (- (/ phi2 phi1) 1)))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2)))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2)))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2)))))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2)))))
(- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(* 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)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(* 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)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
Outputs
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) (fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))) (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
(+.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))) (+ (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))))))
(+.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) lambda1) (*.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)))) lambda1 (*.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg lambda2))))))) (+ (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/12 binary64) lambda1) (*.f64 (*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))) lambda1)) lambda1 (*.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))
(* -1/2 lambda2)
(*.f64 lambda2 #s(literal -1/2 binary64))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(fma.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) lambda1 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64)) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) lambda1 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) lambda1 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(* 1/2 (cos (neg lambda2)))
(*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64))
(+ (* -1/2 (* lambda1 (sin (neg lambda2)))) (* 1/2 (cos (neg lambda2))))
(fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64)))
(+ (* 1/2 (cos (neg lambda2))) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/4 (* lambda1 (cos (neg lambda2)))))))
(fma.f64 (fma.f64 (neg.f64 (sin.f64 lambda2)) #s(literal -1/2 binary64) (*.f64 (*.f64 lambda1 (cos.f64 lambda2)) #s(literal -1/4 binary64))) lambda1 (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64)))
(+ (* 1/2 (cos (neg lambda2))) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* lambda1 (+ (* -1/4 (cos (neg lambda2))) (* 1/12 (* lambda1 (sin (neg lambda2)))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/12 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (*.f64 #s(literal -1/4 binary64) (cos.f64 lambda2))) lambda1 (*.f64 (neg.f64 (sin.f64 lambda2)) #s(literal -1/2 binary64))) lambda1 (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64)))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (neg lambda2)))))
(*.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(+ 1/2 (+ (* -1/2 (* lambda1 (* (cos phi1) (sin (neg lambda2))))) (* 1/2 (* (cos phi1) (cos (neg lambda2))))))
(fma.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi1))))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (cos (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (sin (neg lambda2)))) (* -1/4 (* lambda1 (* (cos phi1) (cos (neg lambda2)))))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (neg.f64 (sin.f64 lambda2)))) lambda1 (*.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* 1/2 (* (cos phi1) (cos (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (sin (neg lambda2)))) (* lambda1 (+ (* -1/4 (* (cos phi1) (cos (neg lambda2)))) (* 1/12 (* lambda1 (* (cos phi1) (sin (neg lambda2)))))))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (neg.f64 (sin.f64 lambda2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/12 binary64) lambda1) (*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi1)) (*.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 phi1)) (cos.f64 lambda2))) lambda1)) lambda1 (*.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(* -1 lambda2)
(neg.f64 lambda2)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(* -1 lambda2)
(neg.f64 lambda2)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- lambda1 lambda2)
(-.f64 lambda1 lambda2)
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))
(- (+ 1/2 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2)))))))
(-.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda1 (- (* -1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2)))))))
(-.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) lambda1) (*.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)))) lambda1 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda1 (- (* lambda1 (- (* 1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2)))))))
(-.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/12 binary64) lambda1) (*.f64 (*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))) lambda1)) lambda1 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) lambda1 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64)) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) lambda1 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) lambda1 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) lambda1 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64)) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) lambda1 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) lambda1 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) (cos.f64 phi2)) (fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* 1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* 1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 #s(literal 1/4 binary64) (fma.f64 (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))) lambda1 (fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))) (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/16 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (+ (* -1/48 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2)))) (+ (* 1/48 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/16 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (+ (* 1/4 (* (cos (* -1/2 lambda2)) (cos (* 1/2 lambda2)))) (* 1/4 (* (sin (* -1/2 lambda2)) (sin (* 1/2 lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (* -1/2 lambda2)) (sin (* 1/2 lambda2)))) (* 1/2 (* (cos (* 1/2 lambda2)) (sin (* -1/2 lambda2))))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (fma.f64 (*.f64 (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/12 binary64) (*.f64 (*.f64 (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 1/12 binary64))) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 #s(literal 1/4 binary64) (fma.f64 (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))) lambda1 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))) lambda1 (fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(cos (neg lambda2))
(cos.f64 lambda2)
(+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))
(fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))
(+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 lambda2) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))
(+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) #s(literal -1/2 binary64))) lambda1 (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))
(sin (* -1/2 lambda2))
(sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) lambda1 (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))
(+ 1/2 (* -1/2 (cos (neg lambda2))))
(fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (+ (* -1/2 (cos (neg lambda2))) (* 1/2 (* lambda1 (sin (neg lambda2))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (neg.f64 (sin.f64 lambda2)) lambda1) (cos.f64 lambda2)) #s(literal 1/2 binary64))
(+ 1/2 (+ (* -1/2 (cos (neg lambda2))) (* lambda1 (+ (* 1/4 (* lambda1 (cos (neg lambda2)))) (* 1/2 (sin (neg lambda2)))))))
(fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda2) #s(literal -1/2 binary64))) lambda1 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (neg lambda2))) (* lambda1 (+ (* 1/2 (sin (neg lambda2))) (* lambda1 (+ (* -1/12 (* lambda1 (sin (neg lambda2)))) (* 1/4 (cos (neg lambda2)))))))))
(fma.f64 (fma.f64 (sin.f64 lambda2) #s(literal -1/2 binary64) (*.f64 (fma.f64 (*.f64 #s(literal -1/12 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (*.f64 #s(literal 1/4 binary64) (cos.f64 lambda2))) lambda1)) lambda1 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* 1/2 (* (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (fma.f64 (fma.f64 (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) #s(literal -1/4 binary64))) lambda1 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))) lambda1 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda1 (+ (* 1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda1 (- (* (cos phi1) (* (cos phi2) (+ (* -1/8 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (* -1/24 (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (* (sin (* -1/2 lambda2)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* -1/2 lambda2)) 2)) (* 1/4 (pow (cos (* -1/2 lambda2)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* -1/2 lambda2)) 2) (pow (sin (* -1/2 lambda2)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (+.f64 (fma.f64 (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) #s(literal -1/4 binary64))) (*.f64 (fma.f64 (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal -1/6 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (fma.f64 (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) #s(literal -1/4 binary64))))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) #s(literal -1/2 binary64))) lambda1)))) lambda1 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))) lambda1 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(- 1/2 (* 1/2 (cos (neg lambda2))))
(fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- (+ 1/2 (* 1/2 (* lambda1 (sin (neg lambda2))))) (* 1/2 (cos (neg lambda2))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (neg.f64 (sin.f64 lambda2)) lambda1) (cos.f64 lambda2)) #s(literal 1/2 binary64))
(- (+ 1/2 (* lambda1 (- (* 1/4 (* lambda1 (cos (neg lambda2)))) (* -1/2 (sin (neg lambda2)))))) (* 1/2 (cos (neg lambda2))))
(fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda2) #s(literal -1/2 binary64))) lambda1 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(- (+ 1/2 (* lambda1 (- (* lambda1 (- (* -1/12 (* lambda1 (sin (neg lambda2)))) (* -1/4 (cos (neg lambda2))))) (* -1/2 (sin (neg lambda2)))))) (* 1/2 (cos (neg lambda2))))
(fma.f64 (fma.f64 (sin.f64 lambda2) #s(literal -1/2 binary64) (*.f64 (fma.f64 (*.f64 #s(literal -1/12 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (*.f64 #s(literal 1/4 binary64) (cos.f64 lambda2))) lambda1)) lambda1 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))
(- (+ 1/2 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (cos (- phi1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2)))))))
(-.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (*.f64 (*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda1 (- (* -1/4 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2)))))))
(-.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) lambda1) (*.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)))) lambda1 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda1 (- (* lambda1 (- (* 1/12 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* 1/4 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (neg lambda2)))))))
(-.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/12 binary64) lambda1) (*.f64 (*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))) lambda1)) lambda1 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))
(* 1/4 (pow lambda1 2))
(*.f64 (*.f64 lambda1 lambda1) #s(literal 1/4 binary64))
(* (pow lambda1 2) (+ 1/4 (* -1/48 (pow lambda1 2))))
(*.f64 (fma.f64 (*.f64 lambda1 lambda1) #s(literal -1/48 binary64) #s(literal 1/4 binary64)) (*.f64 lambda1 lambda1))
(* (pow lambda1 2) (+ 1/4 (* (pow lambda1 2) (- (* 1/1440 (pow lambda1 2)) 1/48))))
(*.f64 (fma.f64 (fma.f64 #s(literal 1/1440 binary64) (*.f64 lambda1 lambda1) #s(literal -1/48 binary64)) (*.f64 lambda1 lambda1) #s(literal 1/4 binary64)) (*.f64 lambda1 lambda1))
(* (pow lambda1 2) (+ 1/4 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 1/1440 (* -1/80640 (pow lambda1 2)))) 1/48))))
(*.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal -1/80640 binary64) (*.f64 lambda1 lambda1) #s(literal 1/1440 binary64)) (*.f64 lambda1 lambda1) #s(literal -1/48 binary64)) (*.f64 lambda1 lambda1) #s(literal 1/4 binary64)) (*.f64 lambda1 lambda1))
(cos (neg lambda2))
(cos.f64 lambda2)
(+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))
(fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))
(+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 lambda2) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))
(+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) #s(literal -1/2 binary64))) lambda1 (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))
(cos (neg lambda2))
(cos.f64 lambda2)
(+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))
(fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))
(+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 lambda2) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))
(+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (*.f64 (cos.f64 lambda2) #s(literal -1/2 binary64))) lambda1 (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))
(- 1/2 (* 1/2 (cos (neg lambda2))))
(fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- (+ 1/2 (* 1/2 (* lambda1 (sin (neg lambda2))))) (* 1/2 (cos (neg lambda2))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (neg.f64 (sin.f64 lambda2)) lambda1) (cos.f64 lambda2)) #s(literal 1/2 binary64))
(- (+ 1/2 (* lambda1 (- (* 1/4 (* lambda1 (cos (neg lambda2)))) (* -1/2 (sin (neg lambda2)))))) (* 1/2 (cos (neg lambda2))))
(fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda2) #s(literal -1/2 binary64))) lambda1 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(- (+ 1/2 (* lambda1 (- (* lambda1 (- (* -1/12 (* lambda1 (sin (neg lambda2)))) (* -1/4 (cos (neg lambda2))))) (* -1/2 (sin (neg lambda2)))))) (* 1/2 (cos (neg lambda2))))
(fma.f64 (fma.f64 (sin.f64 lambda2) #s(literal -1/2 binary64) (*.f64 (fma.f64 (*.f64 #s(literal -1/12 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (*.f64 #s(literal 1/4 binary64) (cos.f64 lambda2))) lambda1)) lambda1 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (neg lambda2))))
(fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- (+ 1/2 (* 1/2 (* lambda1 (sin (neg lambda2))))) (* 1/2 (cos (neg lambda2))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (neg.f64 (sin.f64 lambda2)) lambda1) (cos.f64 lambda2)) #s(literal 1/2 binary64))
(- (+ 1/2 (* lambda1 (- (* 1/4 (* lambda1 (cos (neg lambda2)))) (* -1/2 (sin (neg lambda2)))))) (* 1/2 (cos (neg lambda2))))
(fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda2) #s(literal -1/2 binary64))) lambda1 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(- (+ 1/2 (* lambda1 (- (* lambda1 (- (* -1/12 (* lambda1 (sin (neg lambda2)))) (* -1/4 (cos (neg lambda2))))) (* -1/2 (sin (neg lambda2)))))) (* 1/2 (cos (neg lambda2))))
(fma.f64 (fma.f64 (sin.f64 lambda2) #s(literal -1/2 binary64) (*.f64 (fma.f64 (*.f64 #s(literal -1/12 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (*.f64 #s(literal 1/4 binary64) (cos.f64 lambda2))) lambda1)) lambda1 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(* -1/2 lambda2)
(*.f64 lambda2 #s(literal -1/2 binary64))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))
(sin (* -1/2 lambda2))
(sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))))
(fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* -1/8 (* lambda1 (sin (* -1/2 lambda2)))) (* 1/2 (cos (* -1/2 lambda2))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))
(+ (sin (* -1/2 lambda2)) (* lambda1 (+ (* 1/2 (cos (* -1/2 lambda2))) (* lambda1 (+ (* -1/8 (sin (* -1/2 lambda2))) (* -1/48 (* lambda1 (cos (* -1/2 lambda2)))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/48 binary64) lambda1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))) lambda1 (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(* 1/2 lambda1)
(*.f64 lambda1 #s(literal 1/2 binary64))
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(* 1/2 (cos (- lambda1 lambda2)))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(* 1/2 (cos (- lambda1 lambda2)))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(* 1/2 (cos (- lambda1 lambda2)))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(* 1/2 (cos (- lambda1 lambda2)))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2)))))
(fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2)))))
(fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2)))))
(fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2)))))
(fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
lambda1
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)
lambda1
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)
(* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+ 1/2 (* -1/2 (cos lambda1)))
(fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos lambda1)))
(fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos lambda1)))
(fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos lambda1)))
(fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(* 1/2 lambda1)
(*.f64 lambda1 #s(literal 1/2 binary64))
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)
(* lambda1 (+ 1/2 (* -1/2 (/ lambda2 lambda1))))
(*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(* 1/2 lambda1)
(*.f64 lambda1 #s(literal 1/2 binary64))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 lambda1))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(* 1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(* 1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(* 1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(* 1/2 (cos (neg (+ lambda2 (* -1 lambda1)))))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1)))))))
(fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1)))))))
(fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1)))))))
(fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1)))))))
(fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
lambda1
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(fma.f64 (neg.f64 lambda1) (/.f64 lambda2 lambda1) lambda1)
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(fma.f64 (neg.f64 lambda1) (/.f64 lambda2 lambda1) lambda1)
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(fma.f64 (neg.f64 lambda1) (/.f64 lambda2 lambda1) lambda1)
lambda1
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(fma.f64 (neg.f64 lambda1) (/.f64 lambda2 lambda1) lambda1)
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(fma.f64 (neg.f64 lambda1) (/.f64 lambda2 lambda1) lambda1)
(* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))
(fma.f64 (neg.f64 lambda1) (/.f64 lambda2 lambda1) lambda1)
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (neg (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))
(+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (neg (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 (+ lambda2 (* -1 lambda1)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1)))))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+ 1/2 (* -1/2 (cos lambda1)))
(fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos lambda1)))
(fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos lambda1)))
(fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos lambda1)))
(fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (* -1 (+ lambda2 (* -1 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (* -1 (+ lambda2 (* -1 lambda1))))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(* 1/2 lambda1)
(*.f64 lambda1 #s(literal 1/2 binary64))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 lambda1))
(* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/2)))
(*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 lambda1))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ lambda2 (* -1 lambda1))))
(sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) (fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))) (+ (* 1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
(fma.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (sin.f64 lambda1) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))) (+ (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* 1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))))
(+.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) lambda2) (*.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (*.f64 (sin.f64 lambda1) (cos.f64 phi2)))) lambda2 (*.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))) (fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos lambda1)))))) (+ (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (* lambda2 (+ (* 1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1))) (fma.f64 (fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (*.f64 (sin.f64 lambda1) (cos.f64 phi2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/12 binary64) lambda2) (*.f64 (*.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 lambda1) #s(literal -1/4 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) lambda2)) lambda2 (*.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64))))
(* 1/2 lambda1)
(*.f64 lambda1 #s(literal 1/2 binary64))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(fma.f64 (neg.f64 (*.f64 lambda2 (cos.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(fma.f64 (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (cos.f64 phi2)) (*.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))) lambda2 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) lambda2 (*.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))) lambda2 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(* 1/2 (cos lambda1))
(*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))
(+ (* 1/2 (cos lambda1)) (* 1/2 (* lambda2 (sin lambda1))))
(*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))
(+ (* 1/2 (cos lambda1)) (* lambda2 (+ (* -1/4 (* lambda2 (cos lambda1))) (* 1/2 (sin lambda1)))))
(fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/4 binary64) (*.f64 (sin.f64 lambda1) #s(literal 1/2 binary64))) lambda2 (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))
(+ (* 1/2 (cos lambda1)) (* lambda2 (+ (* 1/2 (sin lambda1)) (* lambda2 (+ (* -1/4 (cos lambda1)) (* -1/12 (* lambda2 (sin lambda1))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (sin.f64 lambda1) lambda2) #s(literal -1/12 binary64) (*.f64 (cos.f64 lambda1) #s(literal -1/4 binary64))) lambda2 (*.f64 (sin.f64 lambda1) #s(literal 1/2 binary64))) lambda2 (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))
(+ 1/2 (* 1/2 (* (cos lambda1) (cos phi1))))
(fma.f64 (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64))
(+ 1/2 (+ (* 1/2 (* lambda2 (* (cos phi1) (sin lambda1)))) (* 1/2 (* (cos lambda1) (cos phi1)))))
(fma.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 phi1) (*.f64 (*.f64 lambda2 (cos.f64 phi1)) (sin.f64 lambda1))) #s(literal 1/2 binary64))
(+ 1/2 (+ (* 1/2 (* (cos lambda1) (cos phi1))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (cos phi1)))) (* 1/2 (* (cos phi1) (sin lambda1)))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) lambda2) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (sin.f64 lambda1))) lambda2 (fma.f64 (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* 1/2 (* (cos lambda1) (cos phi1))) (* lambda2 (+ (* 1/2 (* (cos phi1) (sin lambda1))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (cos phi1))) (* -1/12 (* lambda2 (* (cos phi1) (sin lambda1))))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/12 binary64) lambda2) (*.f64 (sin.f64 lambda1) (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 lambda1) #s(literal -1/4 binary64)) (cos.f64 phi1))) lambda2 (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (sin.f64 lambda1))) lambda2 (fma.f64 (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64)))
lambda1
(+ lambda1 (* -1 lambda2))
(-.f64 lambda1 lambda2)
(+ lambda1 (* -1 lambda2))
(-.f64 lambda1 lambda2)
(+ lambda1 (* -1 lambda2))
(-.f64 lambda1 lambda2)
lambda1
(+ lambda1 (* -1 lambda2))
(-.f64 lambda1 lambda2)
(+ lambda1 (* -1 lambda2))
(-.f64 lambda1 lambda2)
(+ lambda1 (* -1 lambda2))
(-.f64 lambda1 lambda2)
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))
(-.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda2 (- (* -1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))
(-.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) lambda2) (*.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (*.f64 (sin.f64 lambda1) (cos.f64 phi2)))) lambda2 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda2 (- (* lambda2 (- (* -1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))))) (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))
(-.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (*.f64 (sin.f64 lambda1) (cos.f64 phi2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/12 binary64) lambda2) (*.f64 (*.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 lambda1) #s(literal -1/4 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) lambda2)) lambda2 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (neg.f64 (*.f64 lambda2 (cos.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (cos.f64 phi2)) (*.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))) lambda2 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) lambda2 (*.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))) lambda2 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (neg.f64 (*.f64 lambda2 (cos.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (cos.f64 phi2)) (*.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))) lambda2 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) lambda2 (*.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))) lambda2 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (neg.f64 (*.f64 lambda2 (cos.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (cos.f64 phi2)) (*.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))) lambda2 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) lambda2 (*.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))) lambda2 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(cos lambda1)
(cos.f64 lambda1)
(+ (cos lambda1) (* lambda2 (sin lambda1)))
(fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))
(+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))
(fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))
(+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))
(fma.f64 (fma.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 (sin.f64 lambda1) lambda2) (*.f64 (cos.f64 lambda1) #s(literal -1/2 binary64))) lambda2 (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))
(sin (* 1/2 lambda1))
(sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(fma.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) lambda2 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) lambda2) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal -1/8 binary64))) lambda2 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) lambda2 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(+ 1/2 (* -1/2 (cos lambda1)))
(fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (+ (* -1/2 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))
(fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) #s(literal 1/2 binary64))
(+ 1/2 (+ (* -1/2 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/4 (* lambda2 (cos lambda1)))))))
(fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal 1/4 binary64) (*.f64 (sin.f64 lambda1) #s(literal -1/2 binary64))) lambda2 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* lambda2 (+ (* 1/12 (* lambda2 (sin lambda1))) (* 1/4 (cos lambda1))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (sin.f64 lambda1) lambda2) #s(literal 1/12 binary64) (*.f64 (cos.f64 lambda1) #s(literal 1/4 binary64))) lambda2 (*.f64 (sin.f64 lambda1) #s(literal -1/2 binary64))) lambda2 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* -1/2 (* (* lambda2 (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))
(fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) #s(literal -1/4 binary64))) lambda2) (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))))) lambda2 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))) (* lambda2 (+ (* -1/2 (* (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (* lambda2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))) (* 1/2 (* (* lambda2 (- (* (cos phi1) (* (cos phi2) (+ (* 1/24 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1)))) (* 1/8 (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda1))))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (* 1/2 lambda1)) (* (sin (* 1/2 lambda1)) (- (* (cos phi1) (* (cos phi2) (+ (* -1/4 (pow (sin (* 1/2 lambda1)) 2)) (* 1/4 (pow (cos (* 1/2 lambda1)) 2))))) (* 1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (cos (* 1/2 lambda1)) 2) (pow (sin (* 1/2 lambda1)) 2)))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 lambda1)) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))))))))))
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (+.f64 (fma.f64 (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) #s(literal -1/4 binary64))) (*.f64 (fma.f64 (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (fma.f64 (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (/.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) #s(literal -1/4 binary64))))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) lambda2)))) lambda2 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))) lambda2 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))
(- 1/2 (* 1/2 (cos lambda1)))
(fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- (+ 1/2 (* -1/2 (* lambda2 (sin lambda1)))) (* 1/2 (cos lambda1)))
(fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) #s(literal 1/2 binary64))
(- (+ 1/2 (* lambda2 (- (* 1/4 (* lambda2 (cos lambda1))) (* 1/2 (sin lambda1))))) (* 1/2 (cos lambda1)))
(fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal 1/4 binary64) (*.f64 (sin.f64 lambda1) #s(literal -1/2 binary64))) lambda2 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(- (+ 1/2 (* lambda2 (- (* lambda2 (- (* 1/12 (* lambda2 (sin lambda1))) (* -1/4 (cos lambda1)))) (* 1/2 (sin lambda1))))) (* 1/2 (cos lambda1)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (sin.f64 lambda1) lambda2) #s(literal 1/12 binary64) (*.f64 (cos.f64 lambda1) #s(literal 1/4 binary64))) lambda2 (*.f64 (sin.f64 lambda1) #s(literal -1/2 binary64))) lambda2 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* 1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))
(-.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 lambda2 (cos.f64 phi1)) (*.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda2 (- (* -1/4 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))
(-.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/4 binary64) lambda2) (*.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (*.f64 (sin.f64 lambda1) (cos.f64 phi2)))) lambda2 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))
(- (+ 1/2 (+ (* 1/2 (cos (- phi1 phi2))) (* lambda2 (- (* lambda2 (- (* -1/12 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* 1/4 (* (cos lambda1) (* (cos phi1) (cos phi2)))))) (* -1/2 (* (cos phi1) (* (cos phi2) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))
(-.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (*.f64 (sin.f64 lambda1) (cos.f64 phi2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/12 binary64) lambda2) (*.f64 (*.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 lambda1) #s(literal -1/4 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) lambda2)) lambda2 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))
(cos lambda1)
(cos.f64 lambda1)
(+ (cos lambda1) (* lambda2 (sin lambda1)))
(fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))
(+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))
(fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))
(+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))
(fma.f64 (fma.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 (sin.f64 lambda1) lambda2) (*.f64 (cos.f64 lambda1) #s(literal -1/2 binary64))) lambda2 (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))
(cos lambda1)
(cos.f64 lambda1)
(+ (cos lambda1) (* lambda2 (sin lambda1)))
(fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))
(+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))
(fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))
(+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))
(fma.f64 (fma.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 (sin.f64 lambda1) lambda2) (*.f64 (cos.f64 lambda1) #s(literal -1/2 binary64))) lambda2 (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))
(- 1/2 (* 1/2 (cos lambda1)))
(fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- (+ 1/2 (* -1/2 (* lambda2 (sin lambda1)))) (* 1/2 (cos lambda1)))
(fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) #s(literal 1/2 binary64))
(- (+ 1/2 (* lambda2 (- (* 1/4 (* lambda2 (cos lambda1))) (* 1/2 (sin lambda1))))) (* 1/2 (cos lambda1)))
(fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal 1/4 binary64) (*.f64 (sin.f64 lambda1) #s(literal -1/2 binary64))) lambda2 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(- (+ 1/2 (* lambda2 (- (* lambda2 (- (* 1/12 (* lambda2 (sin lambda1))) (* -1/4 (cos lambda1)))) (* 1/2 (sin lambda1))))) (* 1/2 (cos lambda1)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (sin.f64 lambda1) lambda2) #s(literal 1/12 binary64) (*.f64 (cos.f64 lambda1) #s(literal 1/4 binary64))) lambda2 (*.f64 (sin.f64 lambda1) #s(literal -1/2 binary64))) lambda2 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos lambda1)))
(fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- (+ 1/2 (* -1/2 (* lambda2 (sin lambda1)))) (* 1/2 (cos lambda1)))
(fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) #s(literal 1/2 binary64))
(- (+ 1/2 (* lambda2 (- (* 1/4 (* lambda2 (cos lambda1))) (* 1/2 (sin lambda1))))) (* 1/2 (cos lambda1)))
(fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal 1/4 binary64) (*.f64 (sin.f64 lambda1) #s(literal -1/2 binary64))) lambda2 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(- (+ 1/2 (* lambda2 (- (* lambda2 (- (* 1/12 (* lambda2 (sin lambda1))) (* -1/4 (cos lambda1)))) (* 1/2 (sin lambda1))))) (* 1/2 (cos lambda1)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (sin.f64 lambda1) lambda2) #s(literal 1/12 binary64) (*.f64 (cos.f64 lambda1) #s(literal 1/4 binary64))) lambda2 (*.f64 (sin.f64 lambda1) #s(literal -1/2 binary64))) lambda2 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(* 1/2 lambda1)
(*.f64 lambda1 #s(literal 1/2 binary64))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))
(+ (* -1/2 lambda2) (* 1/2 lambda1))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal -1/2 binary64)))
(sin (* 1/2 lambda1))
(sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))
(+ (sin (* 1/2 lambda1)) (* -1/2 (* lambda2 (cos (* 1/2 lambda1)))))
(fma.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* -1/8 (* lambda2 (sin (* 1/2 lambda1)))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) lambda2) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) lambda2 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(+ (sin (* 1/2 lambda1)) (* lambda2 (+ (* -1/2 (cos (* 1/2 lambda1))) (* lambda2 (+ (* -1/8 (sin (* 1/2 lambda1))) (* 1/48 (* lambda2 (cos (* 1/2 lambda1)))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) lambda2) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal -1/8 binary64))) lambda2 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) lambda2 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(* -1/2 lambda2)
(*.f64 lambda2 #s(literal -1/2 binary64))
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) lambda2)
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) lambda2)
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) lambda2)
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(* 1/2 (cos (- lambda1 lambda2)))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(* 1/2 (cos (- lambda1 lambda2)))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(* 1/2 (cos (- lambda1 lambda2)))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(* 1/2 (cos (- lambda1 lambda2)))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2)))))
(fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2)))))
(fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2)))))
(fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2)))))
(fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(* -1 lambda2)
(neg.f64 lambda2)
(* lambda2 (- (/ lambda1 lambda2) 1))
(*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)
(* lambda2 (- (/ lambda1 lambda2) 1))
(*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)
(* lambda2 (- (/ lambda1 lambda2) 1))
(*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)
(* -1 lambda2)
(neg.f64 lambda2)
(* lambda2 (- (/ lambda1 lambda2) 1))
(*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)
(* lambda2 (- (/ lambda1 lambda2) 1))
(*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)
(* lambda2 (- (/ lambda1 lambda2) 1))
(*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (- lambda1 lambda2))
(cos.f64 (-.f64 lambda2 lambda1))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(* -1/2 lambda2)
(*.f64 lambda2 #s(literal -1/2 binary64))
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) lambda2)
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) lambda2)
(* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/2))
(*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) lambda2)
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- lambda1 lambda2)))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(* -1/2 lambda2)
(*.f64 lambda2 #s(literal -1/2 binary64))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 lambda2))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(* 1/2 (cos (+ lambda1 (* -1 lambda2))))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(* 1/2 (cos (+ lambda1 (* -1 lambda2))))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(* 1/2 (cos (+ lambda1 (* -1 lambda2))))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(* 1/2 (cos (+ lambda1 (* -1 lambda2))))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (+ lambda1 (* -1 lambda2))))))
(fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (+ lambda1 (* -1 lambda2))))))
(fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (+ lambda1 (* -1 lambda2))))))
(fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (+ lambda1 (* -1 lambda2))))))
(fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(* -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))
(* -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))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda2 lambda1))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (+ lambda1 (* -1 lambda2)))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2))))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda2 lambda1))
(cos (+ lambda1 (* -1 lambda2)))
(cos.f64 (-.f64 lambda2 lambda1))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(- 1/2 (* 1/2 (cos (+ lambda1 (* -1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(* -1/2 lambda2)
(*.f64 lambda2 #s(literal -1/2 binary64))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 lambda2))
(* -1 (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))
(*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 lambda2))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ lambda1 (* -1 lambda2))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi1))))
(fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (+ (* -1 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/2 (cos phi1)) (* 1/2 (* phi2 (sin phi1))))))
(fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (sin.f64 phi1) phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/4 (cos phi1)) (* 1/2 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))))))
(fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (cos.f64 phi1))) phi2 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64))) phi2 #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (+ (* -1/4 (cos phi1)) (+ (* -1/12 (* phi2 (sin phi1))) (* 1/2 (* (cos phi1) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))))))
(fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/12 binary64) phi2) (sin.f64 phi1) (fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (cos.f64 phi1)))) phi2 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64))) phi2 #s(literal 1/2 binary64)))
(+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))
(fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (neg.f64 phi2) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi2 (*.f64 (neg.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)) #s(literal -1/2 binary64) (fma.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) phi2 (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) phi2 (*.f64 (neg.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(cos phi1)
(cos.f64 phi1)
(+ (cos phi1) (* phi2 (sin phi1)))
(fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1))
(+ (cos phi1) (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (cos phi1))))))
(fma.f64 (fma.f64 (*.f64 phi2 (cos.f64 phi1)) #s(literal -1/2 binary64) (sin.f64 phi1)) phi2 (cos.f64 phi1))
(+ (cos phi1) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (cos phi1)) (* -1/6 (* phi2 (sin phi1))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (sin.f64 phi1) phi2) #s(literal -1/6 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) phi2 (sin.f64 phi1)) phi2 (cos.f64 phi1))
phi1
(+ phi1 (* -1 phi2))
(-.f64 phi1 phi2)
(+ phi1 (* -1 phi2))
(-.f64 phi1 phi2)
(+ phi1 (* -1 phi2))
(-.f64 phi1 phi2)
(- 1/2 (* 1/2 (cos phi1)))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))
(- (+ 1/2 (* -1/2 (* phi2 (sin phi1)))) (* 1/2 (cos phi1)))
(fma.f64 (*.f64 (sin.f64 phi1) phi2) #s(literal -1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))
(- (+ 1/2 (* phi2 (- (* 1/4 (* phi2 (cos phi1))) (* 1/2 (sin phi1))))) (* 1/2 (cos phi1)))
(fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) #s(literal -1/2 binary64))) phi2 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))
(- (+ 1/2 (* phi2 (- (* phi2 (- (* 1/12 (* phi2 (sin phi1))) (* -1/4 (cos phi1)))) (* 1/2 (sin phi1))))) (* 1/2 (cos phi1)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/12 binary64) phi2) (sin.f64 phi1) (*.f64 #s(literal 1/4 binary64) (cos.f64 phi1))) phi2 (*.f64 (sin.f64 phi1) #s(literal -1/2 binary64))) phi2 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos phi1))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(- (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* phi2 (sin phi1))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (sin.f64 phi1) phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(- (+ 1/2 (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (- (* -1/4 (cos phi1)) (* -1/2 (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (cos.f64 phi1))) phi2 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64))) phi2 #s(literal 1/2 binary64)))
(- (+ 1/2 (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (- (+ (* -1/4 (cos phi1)) (* -1/12 (* phi2 (sin phi1)))) (* -1/2 (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/12 binary64) phi2) (sin.f64 phi1) (fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (cos.f64 phi1)))) phi2 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64))) phi2 #s(literal 1/2 binary64)))
(* 1/2 phi1)
(*.f64 phi1 #s(literal 1/2 binary64))
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 phi1 #s(literal 1/2 binary64)))
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 phi1 #s(literal 1/2 binary64)))
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 phi1 #s(literal 1/2 binary64)))
(+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))
(fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (neg.f64 phi2) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi2 (*.f64 (neg.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)) #s(literal -1/2 binary64) (fma.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) phi2 (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) phi2 (*.f64 (neg.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))
(fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (neg.f64 phi2) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi2 (*.f64 (neg.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)) #s(literal -1/2 binary64) (fma.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) phi2 (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) phi2 (*.f64 (neg.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2))
(fma.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* -1 (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (neg.f64 phi2) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (fma.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) #s(literal -1/2 binary64) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi2 (*.f64 (neg.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (fma.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* phi2 (+ (* -1 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi1)) 2)) (* phi2 (+ (* 1/24 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (* 1/8 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))))))))))) (+ (* (cos phi1) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* 1/2 phi1)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) #s(literal -1/2 binary64) (fma.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) phi2 (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) phi2 (*.f64 (neg.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (fma.f64 (*.f64 (cos.f64 phi1) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))
(sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* -1/2 (* (* phi2 (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1)))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))
(fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* 1/2 (* (* phi2 (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #s(literal 1/4 binary64))) phi2) (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))) phi2 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (* phi2 (+ (* -1/2 (* (* (cos (* 1/2 phi1)) (sin (* 1/2 phi1))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (* phi2 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 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))))) (* -1/2 (/ (* (cos (* 1/2 phi1)) (* (sin (* 1/2 phi1)) (- (+ (* -1/2 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi1)) 2)) (* 1/4 (pow (cos (* 1/2 phi1)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi1)) 2) (pow (sin (* 1/2 phi1)) 2)) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))))))) (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))) (sqrt (/ 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)))))))))))
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (-.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #s(literal 1/4 binary64))) (*.f64 (fma.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (-.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #s(literal 1/4 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) phi2)))) phi2 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) phi2 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(- (+ 1/2 (* 1/2 (cos phi1))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(- (+ 1/2 (+ (* 1/2 (cos phi1)) (* 1/2 (* phi2 (sin phi1))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (sin.f64 phi1) phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(- (+ 1/2 (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (- (* -1/4 (cos phi1)) (* -1/2 (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (cos.f64 phi1))) phi2 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64))) phi2 #s(literal 1/2 binary64)))
(- (+ 1/2 (+ (* 1/2 (cos phi1)) (* phi2 (+ (* 1/2 (sin phi1)) (* phi2 (- (+ (* -1/4 (cos phi1)) (* -1/12 (* phi2 (sin phi1)))) (* -1/2 (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/12 binary64) phi2) (sin.f64 phi1) (fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (cos.f64 phi1)))) phi2 (*.f64 (sin.f64 phi1) #s(literal 1/2 binary64))) phi2 #s(literal 1/2 binary64)))
(* 1/2 phi1)
(*.f64 phi1 #s(literal 1/2 binary64))
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 phi1 #s(literal 1/2 binary64)))
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 phi1 #s(literal 1/2 binary64)))
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 phi1 #s(literal 1/2 binary64)))
(sin (* 1/2 phi1))
(sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(+ (sin (* 1/2 phi1)) (* -1/2 (* phi2 (cos (* 1/2 phi1)))))
(fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* -1/8 (* phi2 (sin (* 1/2 phi1)))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) phi2 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(+ (sin (* 1/2 phi1)) (* phi2 (+ (* -1/2 (cos (* 1/2 phi1))) (* phi2 (+ (* -1/8 (sin (* 1/2 phi1))) (* 1/48 (* phi2 (cos (* 1/2 phi1)))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) phi2) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/8 binary64) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) phi2 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) phi2 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(* -1 phi2)
(neg.f64 phi2)
(* phi2 (- (/ phi1 phi2) 1))
(*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2)
(* phi2 (- (/ phi1 phi2) 1))
(*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2)
(* phi2 (- (/ phi1 phi2) 1))
(*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2)
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(* -1/2 phi2)
(*.f64 #s(literal -1/2 binary64) phi2)
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2)
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2)
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2)
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(* -1/2 phi2)
(*.f64 #s(literal -1/2 binary64) phi2)
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2)
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2)
(* phi2 (- (* 1/2 (/ phi1 phi2)) 1/2))
(*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2)
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(* -1 phi2)
(neg.f64 phi2)
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(*.f64 (neg.f64 phi2) (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(*.f64 (neg.f64 phi2) (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
(* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))
(*.f64 (neg.f64 phi2) (-.f64 #s(literal 1 binary64) (/.f64 phi1 phi2)))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(* -1/2 phi2)
(*.f64 #s(literal -1/2 binary64) phi2)
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(*.f64 (neg.f64 phi2) (fma.f64 (/.f64 phi1 phi2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(*.f64 (neg.f64 phi2) (fma.f64 (/.f64 phi1 phi2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(*.f64 (neg.f64 phi2) (fma.f64 (/.f64 phi1 phi2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (+ phi1 (* -1 phi2)))) 2))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (+ phi1 (* -1 phi2))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(* -1/2 phi2)
(*.f64 #s(literal -1/2 binary64) phi2)
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(*.f64 (neg.f64 phi2) (fma.f64 (/.f64 phi1 phi2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(*.f64 (neg.f64 phi2) (fma.f64 (/.f64 phi1 phi2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(* -1 (* phi2 (+ 1/2 (* -1/2 (/ phi1 phi2)))))
(*.f64 (neg.f64 phi2) (fma.f64 (/.f64 phi1 phi2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (+ phi1 (* -1 phi2))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (* 1/2 (cos phi2))))
(fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (+ (* -1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/2 (cos phi2)) (* 1/2 (* phi1 (sin phi2))))))
(fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (sin.f64 phi2) phi1) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/2 (cos phi2)) (* phi1 (+ (* 1/2 (sin phi2)) (* phi1 (+ (* -1/4 (cos phi2)) (* 1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))))))))))
(fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (cos.f64 phi2))) phi1 (*.f64 (sin.f64 phi2) #s(literal 1/2 binary64))) phi1 #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2)))))) (+ (* 1/2 (cos phi2)) (* phi1 (+ (* 1/2 (sin phi2)) (* phi1 (+ (* -1/4 (cos phi2)) (+ (* -1/12 (* phi1 (sin phi2))) (* 1/2 (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))))))))))
(fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/12 binary64) phi1) (sin.f64 phi2) (fma.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (cos.f64 phi2)))) phi1 (*.f64 (sin.f64 phi2) #s(literal 1/2 binary64))) phi1 #s(literal 1/2 binary64)))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))
(fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* -1 (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(fma.f64 (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi1 (*.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) phi1 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (* phi1 (+ (* -1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* 1/2 phi2)) 2)) (* phi1 (+ (* 1/24 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (* 1/8 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))))))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) #s(literal -1/2 binary64) (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64)) phi1 (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) phi1 (*.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) phi1 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(cos phi2)
(cos.f64 phi2)
(+ (cos phi2) (* phi1 (sin phi2)))
(fma.f64 (sin.f64 phi2) phi1 (cos.f64 phi2))
(+ (cos phi2) (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (cos phi2))))))
(fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) phi1) #s(literal -1/2 binary64) (sin.f64 phi2)) phi1 (cos.f64 phi2))
(+ (cos phi2) (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (cos phi2)) (* -1/6 (* phi1 (sin phi2))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (sin.f64 phi2) phi1) #s(literal -1/6 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2))) phi1 (sin.f64 phi2)) phi1 (cos.f64 phi2))
(* -1 phi2)
(neg.f64 phi2)
(- phi1 phi2)
(-.f64 phi1 phi2)
(- phi1 phi2)
(-.f64 phi1 phi2)
(- phi1 phi2)
(-.f64 phi1 phi2)
(- 1/2 (* 1/2 (cos (neg phi2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)))
(- (+ 1/2 (* 1/2 (* phi1 (sin (neg phi2))))) (* 1/2 (cos (neg phi2))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (neg.f64 (sin.f64 phi2)) phi1) (cos.f64 phi2))))
(- (+ 1/2 (* phi1 (- (* 1/4 (* phi1 (cos (neg phi2)))) (* -1/2 (sin (neg phi2)))))) (* 1/2 (cos (neg phi2))))
(fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) phi1) (cos.f64 phi2) (*.f64 (sin.f64 phi2) #s(literal -1/2 binary64))) phi1 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))
(- (+ 1/2 (* phi1 (- (* phi1 (- (* -1/12 (* phi1 (sin (neg phi2)))) (* -1/4 (cos (neg phi2))))) (* -1/2 (sin (neg phi2)))))) (* 1/2 (cos (neg phi2))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/12 binary64) phi1) (neg.f64 (sin.f64 phi2)) (*.f64 #s(literal 1/4 binary64) (cos.f64 phi2))) phi1 (*.f64 (sin.f64 phi2) #s(literal -1/2 binary64))) phi1 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))))
(+ 1/2 (* 1/2 (cos (- lambda1 lambda2))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(+ 1/2 (+ (* -1/4 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* 1/2 (cos (- lambda1 lambda2)))))
(fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (fma.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi1) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
(+ 1/2 (+ (* 1/2 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/4 (cos (- lambda1 lambda2))) (* 1/48 (* (pow phi1 2) (cos (- lambda1 lambda2))))))))
(fma.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (fma.f64 #s(literal 1/48 binary64) (*.f64 phi1 phi1) #s(literal -1/4 binary64))) (*.f64 phi1 phi1) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* 1/2 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/4 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/1440 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* 1/48 (cos (- lambda1 lambda2)))))))))
(fma.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) (fma.f64 #s(literal -1/1440 binary64) (*.f64 phi1 phi1) #s(literal 1/48 binary64))) (*.f64 phi1 phi1) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/4 binary64))) (*.f64 phi1 phi1) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(- (+ 1/2 (* 1/2 (cos (neg phi2)))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(- (+ 1/2 (+ (* -1/2 (* phi1 (sin (neg phi2)))) (* 1/2 (cos (neg phi2))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)))) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(- (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (- (* -1/4 (cos (neg phi2))) (* -1/2 (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(-.f64 (fma.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (cos.f64 phi2))) phi1 (*.f64 (neg.f64 (sin.f64 phi2)) #s(literal -1/2 binary64))) phi1 (fma.f64 (cos.f64 phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))
(- (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (- (+ (* -1/4 (cos (neg phi2))) (* 1/12 (* phi1 (sin (neg phi2))))) (* -1/2 (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(-.f64 (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/12 binary64) phi1) (neg.f64 (sin.f64 phi2)) (fma.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (cos.f64 phi2)))) phi1 (*.f64 (neg.f64 (sin.f64 phi2)) #s(literal -1/2 binary64))) phi1 (fma.f64 (cos.f64 phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))
(* -1/2 phi2)
(*.f64 #s(literal -1/2 binary64) phi2)
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 phi1 #s(literal 1/2 binary64)))
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 phi1 #s(literal 1/2 binary64)))
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 phi1 #s(literal 1/2 binary64)))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))
(fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi1 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) phi1 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) #s(literal -1/2 binary64) (fma.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal -1/6 binary64)) phi1 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) phi1 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) phi1 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2))
(fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi1 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) phi1 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) #s(literal -1/2 binary64) (fma.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal -1/6 binary64)) phi1 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) phi1 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) phi1 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))
(+ (* phi1 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (fma.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (* 1/4 (pow (cos (* -1/2 phi2)) 2))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi1 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) phi1 (fma.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (+ (* -1/4 (pow (sin (* -1/2 phi2)) 2)) (+ (* 1/4 (pow (cos (* -1/2 phi2)) 2)) (* phi1 (+ (* -1/8 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))) (* -1/24 (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2)))))))))) (* (cos (* -1/2 phi2)) (sin (* -1/2 phi2))))) (+ (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))))) (pow (sin (* -1/2 phi2)) 2)))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (fma.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal -1/6 binary64)) phi1 (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) phi1 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) phi1 (fma.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))
(sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* -1/2 (* (* phi1 (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2)))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))
(fma.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* 1/2 (* (* phi1 (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))))
(fma.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #s(literal 1/4 binary64))) phi1) (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))) phi1 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(+ (sqrt (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))) (* phi1 (+ (* -1/2 (* (* (cos (* 1/2 phi2)) (sin (* 1/2 phi2))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (* phi1 (+ (* 1/2 (* (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 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))))) (* -1/2 (/ (* (cos (* 1/2 phi2)) (* (sin (* 1/2 phi2)) (- (+ (* -1/2 (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (+ (* -1/4 (pow (sin (* 1/2 phi2)) 2)) (* 1/4 (pow (cos (* 1/2 phi2)) 2)))) (* 1/4 (/ (* (pow (cos (* 1/2 phi2)) 2) (pow (sin (* 1/2 phi2)) 2)) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2))))))) (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))) (sqrt (/ 1 (+ (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi2)) 2)))))))))))
(fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 (-.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #s(literal 1/4 binary64))) (*.f64 (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 1/6 binary64) (*.f64 (/.f64 (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (-.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) (*.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) #s(literal 1/4 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))) phi1)))) phi1 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) phi1 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))
(- (+ 1/2 (* 1/2 (cos (neg phi2)))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(- (+ 1/2 (+ (* -1/2 (* phi1 (sin (neg phi2)))) (* 1/2 (cos (neg phi2))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)))) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(- (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (- (* -1/4 (cos (neg phi2))) (* -1/2 (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(-.f64 (fma.f64 (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (cos.f64 phi2))) phi1 (*.f64 (neg.f64 (sin.f64 phi2)) #s(literal -1/2 binary64))) phi1 (fma.f64 (cos.f64 phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))
(- (+ 1/2 (+ (* 1/2 (cos (neg phi2))) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* phi1 (- (+ (* -1/4 (cos (neg phi2))) (* 1/12 (* phi1 (sin (neg phi2))))) (* -1/2 (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))))))) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))))
(-.f64 (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/12 binary64) phi1) (neg.f64 (sin.f64 phi2)) (fma.f64 (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (cos.f64 phi2)))) phi1 (*.f64 (neg.f64 (sin.f64 phi2)) #s(literal -1/2 binary64))) phi1 (fma.f64 (cos.f64 phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))
(* -1/2 phi2)
(*.f64 #s(literal -1/2 binary64) phi2)
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 phi1 #s(literal 1/2 binary64)))
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 phi1 #s(literal 1/2 binary64)))
(+ (* -1/2 phi2) (* 1/2 phi1))
(fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 phi1 #s(literal 1/2 binary64)))
(sin (* -1/2 phi2))
(sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))
(+ (sin (* -1/2 phi2)) (* 1/2 (* phi1 (cos (* -1/2 phi2)))))
(fma.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* -1/8 (* phi1 (sin (* -1/2 phi2)))) (* 1/2 (cos (* -1/2 phi2))))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
(+ (sin (* -1/2 phi2)) (* phi1 (+ (* 1/2 (cos (* -1/2 phi2))) (* phi1 (+ (* -1/8 (sin (* -1/2 phi2))) (* -1/48 (* phi1 (cos (* -1/2 phi2)))))))))
(fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/48 binary64) phi1) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal -1/8 binary64))) phi1 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
phi1
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1)
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1)
(* phi1 (+ 1 (* -1 (/ phi2 phi1))))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1)
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (- phi1 phi2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2)))))
(fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2)))))
(fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2)))))
(fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2)))))
(fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(* 1/2 phi1)
(*.f64 phi1 #s(literal 1/2 binary64))
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1)
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1)
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1)
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* 1/2 (- phi1 phi2))) 2))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (- phi1 phi2)))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(* 1/2 phi1)
(*.f64 phi1 #s(literal 1/2 binary64))
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1)
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1)
(* phi1 (+ 1/2 (* -1/2 (/ phi2 phi1))))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1)
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(sin (* 1/2 (- phi1 phi2)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1 (* (cos phi1) (* (cos phi2) (+ 1/2 (* -1/2 (cos (- lambda1 lambda2))))))) (* 1/2 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
(fma.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2))
(fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
phi1
(* -1 (* phi1 (- (/ phi2 phi1) 1)))
(*.f64 (neg.f64 phi1) (-.f64 (/.f64 phi2 phi1) #s(literal 1 binary64)))
(* -1 (* phi1 (- (/ phi2 phi1) 1)))
(*.f64 (neg.f64 phi1) (-.f64 (/.f64 phi2 phi1) #s(literal 1 binary64)))
(* -1 (* phi1 (- (/ phi2 phi1) 1)))
(*.f64 (neg.f64 phi1) (-.f64 (/.f64 phi2 phi1) #s(literal 1 binary64)))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(- 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1))))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2)))))
(fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2)))))
(fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2)))))
(fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(+ 1/2 (* 1/2 (* (cos phi1) (cos (- lambda1 lambda2)))))
(fma.f64 (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(* 1/2 phi1)
(*.f64 phi1 #s(literal 1/2 binary64))
(* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 phi1))
(* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 phi1))
(* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 phi1))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(+ (* (cos phi1) (* (cos phi2) (* (sin (* 1/2 (- lambda1 lambda2))) (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))))))) (pow (sin (* -1/2 (+ phi2 (* -1 phi1)))) 2))
(fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64))) #s(literal 2 binary64)))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2))) (pow (- (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (* (cos (* 1/2 phi1)) (sin (* 1/2 phi2)))) 2)))
(sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))
(- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(- (+ 1/2 (* 1/2 (cos (* -1 (+ phi2 (* -1 phi1)))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(* 1/2 phi1)
(*.f64 phi1 #s(literal 1/2 binary64))
(* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 phi1))
(* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 phi1))
(* -1 (* phi1 (- (* 1/2 (/ phi2 phi1)) 1/2)))
(*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (neg.f64 phi1))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64)))
(sin (* -1/2 (+ phi2 (* -1 phi1))))
(sin.f64 (*.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64)))

rewrite473.0ms (1%)

Memory
-39.1MiB live, 478.7MiB allocated
Rules
5 370×lower-fma.f32
5 362×lower-fma.f64
4 166×lower-*.f32
4 118×lower-*.f64
2 028×lower-pow.f32
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0108487
0191446
1631339
24947339
08123327
Stop Event
1×iter limit
1×node limit
1×iter limit
Counts
30 → 969
Calls
Call 1
Inputs
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
(cos.f64 (-.f64 lambda1 lambda2))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
(fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))
#s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))
#s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))
(sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
Outputs
(*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(*.f64 (-.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)))) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))
(*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))
(pow.f64 (/.f64 (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)))) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(/.f64 (-.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (-.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))
(/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (+.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (-.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (neg.f64 (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)))) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)))) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (-.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (fma.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)))) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64)))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (neg.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (neg.f64 (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (neg.f64 (cos.f64 phi2)) (*.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 #s(literal -1 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
(fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)))))
(fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 phi2) (*.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi2 phi1))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)))))
(-.f64 (/.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (/.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)) (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(+.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(+.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(+.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))))
(+.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
(+.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)))))
(+.f64 #s(literal 1/2 binary64) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))
(*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))
(*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (neg.f64 (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) #s(literal -1/2 binary64))
(*.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(*.f64 (neg.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(*.f64 #s(literal -1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (neg.f64 (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))
(*.f64 #s(literal -1/2 binary64) (neg.f64 (-.f64 lambda1 lambda2)))
(pow.f64 (/.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) #s(literal -1 binary64))
(pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(/.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 lambda2 lambda1))
(/.f64 (*.f64 (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))
(/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) (+.f64 lambda2 lambda1))
(/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))
(/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) #s(literal 1/8 binary64)) (*.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) #s(literal 1/8 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 #s(literal 1/2 binary64) lambda1) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda2) (*.f64 #s(literal 1/2 binary64) lambda2) (*.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 #s(literal 1/2 binary64) lambda2)))))
(/.f64 (neg.f64 (neg.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 lambda1 #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) lambda2)) #s(literal 4 binary64))
(/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (*.f64 #s(literal 2 binary64) (+.f64 lambda2 lambda1)))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal -2 binary64) (-.f64 lambda1 lambda2)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(/.f64 (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2)) (*.f64 #s(literal 2 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))
(/.f64 (neg.f64 (-.f64 lambda1 lambda2)) #s(literal -2 binary64))
(/.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(neg.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)))
(fma.f64 #s(literal 1/2 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))
(fma.f64 #s(literal 1/2 binary64) lambda1 (*.f64 #s(literal -1/2 binary64) lambda2))
(fma.f64 #s(literal 1/2 binary64) lambda1 (*.f64 (neg.f64 lambda2) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) lambda1 (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) lambda2))
(fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 (neg.f64 lambda2) #s(literal 1/2 binary64)))
(fma.f64 lambda1 #s(literal 1/2 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))
(-.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 #s(literal 1/2 binary64) lambda2))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))
(+.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))
(+.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 #s(literal -1/2 binary64) lambda2))
(+.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (*.f64 (neg.f64 lambda2) #s(literal 1/2 binary64)))
(+.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))
(*.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))
(*.f64 (+.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))
(pow.f64 (/.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))) (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (+.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)))) #s(literal -1 binary64))
(/.f64 (-.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)))) (neg.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))
(/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))) (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (+.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)))))
(/.f64 (+.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64))) (+.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64))) (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))
(fma.f64 (pow.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64)))) #s(literal 1 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(fma.f64 (pow.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64))) #s(literal 1 binary64)) (pow.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) #s(literal 1/4 binary64)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(fma.f64 (pow.f64 (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (pow.f64 (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(fma.f64 (pow.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(fma.f64 (pow.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64)))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) #s(literal 1/4 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(fma.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) #s(literal 2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(fma.f64 (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(fma.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 phi1) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))
(+.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(+.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(*.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi2)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (/.f64 #s(literal 1 binary64) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)))))
(*.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (+.f64 phi1 phi2))))))
(pow.f64 (/.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi2)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))) #s(literal -1 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) phi2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (+.f64 (pow.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)))) #s(literal -1 binary64))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) #s(literal 1 binary64))
(/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi2)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (cos.f64 (+.f64 phi1 phi2)))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64))) (+.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (+.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (neg.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi2)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))) (neg.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (+.f64 phi1 phi2))))))
(/.f64 (fma.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 4 binary64))
(/.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))))) #s(literal 4 binary64))
(/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi2)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi2)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (+.f64 phi1 phi2)))) (+.f64 (pow.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi2)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (cos.f64 phi1)) (cos.f64 phi2)))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (+.f64 phi1 phi2)))))
(fma.f64 (cos.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi1 phi2))) (cos.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi1 phi2))) (sin.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi1 phi2)))))
(fma.f64 (cos.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) phi1) (fma.f64 phi1 phi1 (*.f64 phi2 (+.f64 phi1 phi2))))) (cos.f64 (/.f64 (*.f64 (*.f64 phi2 phi2) phi2) (fma.f64 phi1 phi1 (*.f64 phi2 (+.f64 phi1 phi2))))) (*.f64 (sin.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) phi1) (fma.f64 phi1 phi1 (*.f64 phi2 (+.f64 phi1 phi2))))) (sin.f64 (/.f64 (*.f64 (*.f64 phi2 phi2) phi2) (fma.f64 phi1 phi1 (*.f64 phi2 (+.f64 phi1 phi2)))))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (*.f64 (neg.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (neg.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64)))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64)))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (neg.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (*.f64 (neg.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (neg.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (neg.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (neg.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) #s(literal 1/4 binary64))) (neg.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (*.f64 (neg.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (neg.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (neg.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (-.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 phi2))) #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
(fma.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
(fma.f64 (cos.f64 phi1) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi2 phi1))) (*.f64 (neg.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi2 phi1))) (neg.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(-.f64 (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi1))))
(-.f64 (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1 binary64))) (cos.f64 (*.f64 (neg.f64 phi2) #s(literal 1 binary64)))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1 binary64))) (sin.f64 (*.f64 (neg.f64 phi2) #s(literal 1 binary64)))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1 binary64) (neg.f64 phi2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1 binary64) (neg.f64 phi2)))))
(-.f64 (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)))) (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi2)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(-.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (neg.f64 (sin.f64 phi2)) (sin.f64 phi1)))
(-.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (neg.f64 (sin.f64 phi2))))
(cos.f64 (fma.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(cos.f64 (-.f64 phi2 phi1))
(cos.f64 (-.f64 phi1 phi2))
(+.f64 (*.f64 (cos.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi1 phi2))) (cos.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi1 phi2)))) (*.f64 (sin.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi1 phi2))) (sin.f64 (/.f64 (*.f64 phi2 phi2) (+.f64 phi1 phi2)))))
(+.f64 (*.f64 (cos.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) phi1) (fma.f64 phi1 phi1 (*.f64 phi2 (+.f64 phi1 phi2))))) (cos.f64 (/.f64 (*.f64 (*.f64 phi2 phi2) phi2) (fma.f64 phi1 phi1 (*.f64 phi2 (+.f64 phi1 phi2)))))) (*.f64 (sin.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) phi1) (fma.f64 phi1 phi1 (*.f64 phi2 (+.f64 phi1 phi2))))) (sin.f64 (/.f64 (*.f64 (*.f64 phi2 phi2) phi2) (fma.f64 phi1 phi1 (*.f64 phi2 (+.f64 phi1 phi2)))))))
(+.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
(+.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)) #s(literal 1/2 binary64))
(*.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2)))
(*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))
(*.f64 (*.f64 (fma.f64 phi1 phi1 (*.f64 phi2 (+.f64 phi1 phi2))) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (fma.f64 phi1 phi1 (*.f64 phi2 (+.f64 phi1 phi2)))))
(*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))
(*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))
(*.f64 #s(literal 2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(pow.f64 (/.f64 (+.f64 phi1 phi2) (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 phi1 phi1 (*.f64 phi2 (+.f64 phi1 phi2))) (*.f64 (fma.f64 phi1 phi1 (*.f64 phi2 (+.f64 phi1 phi2))) (-.f64 phi1 phi2))) #s(literal -1 binary64))
(/.f64 (*.f64 (neg.f64 (-.f64 phi1 phi2)) #s(literal 2 binary64)) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2))) (+.f64 phi1 phi2))
(/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (fma.f64 phi1 phi1 (*.f64 phi2 (+.f64 phi1 phi2))) (-.f64 phi1 phi2))) (fma.f64 phi1 phi1 (*.f64 phi2 (+.f64 phi1 phi2))))
(/.f64 (*.f64 #s(literal 2 binary64) (neg.f64 (-.f64 phi1 phi2))) #s(literal -2 binary64))
(/.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 phi1 phi1) (*.f64 (neg.f64 phi2) (neg.f64 phi2))) (-.f64 phi1 (neg.f64 phi2)))
(/.f64 (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 phi1 (-.f64 (*.f64 (neg.f64 phi2) (neg.f64 phi2)) (*.f64 phi1 (neg.f64 phi2)))))
(/.f64 (neg.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2))) (neg.f64 (+.f64 phi1 phi2)))
(/.f64 (neg.f64 (*.f64 (fma.f64 phi1 phi1 (*.f64 phi2 (+.f64 phi1 phi2))) (-.f64 phi1 phi2))) (neg.f64 (fma.f64 phi1 phi1 (*.f64 phi2 (+.f64 phi1 phi2)))))
(/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (+.f64 phi1 phi2))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 phi1 phi2) (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 phi1 phi1 (*.f64 phi2 (+.f64 phi1 phi2))) (*.f64 (fma.f64 phi1 phi1 (*.f64 phi2 (+.f64 phi1 phi2))) (-.f64 phi1 phi2))))
(/.f64 (*.f64 (fma.f64 phi1 phi1 (*.f64 phi2 (+.f64 phi1 phi2))) (-.f64 phi1 phi2)) (fma.f64 phi1 phi1 (*.f64 phi2 (+.f64 phi1 phi2))))
(/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))
(fma.f64 #s(literal -1 binary64) phi2 phi1)
(fma.f64 #s(literal 1 binary64) phi1 (*.f64 #s(literal 1 binary64) (neg.f64 phi2)))
(fma.f64 phi1 #s(literal 1 binary64) (*.f64 (neg.f64 phi2) #s(literal 1 binary64)))
(-.f64 (/.f64 (*.f64 phi1 phi1) (+.f64 phi1 phi2)) (/.f64 (*.f64 phi2 phi2) (+.f64 phi1 phi2)))
(-.f64 (/.f64 (*.f64 (*.f64 phi1 phi1) phi1) (fma.f64 phi1 phi1 (*.f64 phi2 (+.f64 phi1 phi2)))) (/.f64 (*.f64 (*.f64 phi2 phi2) phi2) (fma.f64 phi1 phi1 (*.f64 phi2 (+.f64 phi1 phi2)))))
(-.f64 phi1 phi2)
(+.f64 (*.f64 phi1 #s(literal 1 binary64)) (*.f64 (neg.f64 phi2) #s(literal 1 binary64)))
(+.f64 (*.f64 #s(literal 1 binary64) phi1) (*.f64 #s(literal 1 binary64) (neg.f64 phi2)))
(+.f64 (neg.f64 phi2) phi1)
(+.f64 phi1 (neg.f64 phi2))
(*.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(*.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 1/4 binary64))))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(pow.f64 (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 1/4 binary64)) (-.f64 #s(literal 1/8 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)))) #s(literal -1 binary64))
(/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)))
(/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 #s(literal 0 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64))) (+.f64 #s(literal 0 binary64) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (*.f64 #s(literal 0 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (pow.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)))) (neg.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)))) (neg.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 1/4 binary64))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 1/4 binary64)) (-.f64 #s(literal 1/8 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)))))
(/.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64))) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 1/4 binary64)))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) #s(literal 0 binary64))
(fma.f64 #s(literal -1 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
(fma.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 1/4 binary64))) #s(literal 0 binary64))
(fma.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 0 binary64))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 0 binary64))
(-.f64 (/.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
(-.f64 (/.f64 #s(literal 1/8 binary64) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 1/4 binary64))) (/.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) #s(literal 1/4 binary64))))
(-.f64 #s(literal 0 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)))
(-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(+.f64 (*.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 1/2 binary64)) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 1/2 binary64)))
(+.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (*.f64 #s(literal 1/2 binary64) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))
(+.f64 #s(literal 0 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(+.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 0 binary64))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(*.f64 (pow.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64)))) #s(literal 1 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64))) #s(literal 1 binary64)) (pow.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) #s(literal 1/4 binary64)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (pow.f64 (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) #s(literal 1 binary64)))
(*.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64)))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(*.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) #s(literal 1/4 binary64)))
(*.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64)))
(*.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) #s(literal 2 binary64)))
(*.f64 (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(*.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(pow.f64 (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) #s(literal -1 binary64))
(pow.f64 (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(pow.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64))
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(/.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(/.f64 (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(/.f64 (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))))
(/.f64 (+.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal -1/8 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (pow.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64)))) (neg.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (neg.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(/.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(/.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (*.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(/.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) #s(literal 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 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) #s(literal 2 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))))
(/.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))
(fma.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
(fma.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(fma.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal 1/2 binary64) (neg.f64 (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))
(-.f64 (/.f64 #s(literal 1/4 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(-.f64 (/.f64 #s(literal 1/8 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (/.f64 (*.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (*.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))
(exp.f64 (*.f64 (log.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(exp.f64 (log.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (*.f64 (*.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) (*.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(+.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)))
(*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))))
(*.f64 (+.f64 (pow.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(pow.f64 (/.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (+.f64 (pow.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) #s(literal -1 binary64))
(/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) #s(literal 1/4 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)) #s(literal 1/2 binary64)))
(/.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (neg.f64 (fma.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (+.f64 (pow.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (-.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 #s(literal 1/4 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (fma.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))
(fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1) #s(literal 1/2 binary64))
(fma.f64 (cos.f64 phi1) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))
(-.f64 (/.f64 #s(literal 1/4 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))) (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))))
(+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))
(*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))
(*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))
(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))
(*.f64 #s(literal -1 binary64) (neg.f64 (-.f64 lambda1 lambda2)))
(*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))
(*.f64 (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))
(*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (-.f64 lambda1 lambda2))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) #s(literal -1 binary64)))
(*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 lambda2 lambda1) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(pow.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))
(/.f64 (*.f64 (neg.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) (+.f64 lambda2 lambda1))
(/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))
(/.f64 (*.f64 #s(literal 2 binary64) (neg.f64 (-.f64 lambda1 lambda2))) #s(literal -2 binary64))
(/.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 (neg.f64 lambda2) (neg.f64 lambda2))) (-.f64 lambda1 (neg.f64 lambda2)))
(/.f64 (fma.f64 (*.f64 lambda1 lambda1) lambda1 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda2 lambda2) lambda2))) (fma.f64 lambda1 lambda1 (-.f64 (*.f64 (neg.f64 lambda2) (neg.f64 lambda2)) (*.f64 lambda1 (neg.f64 lambda2)))))
(/.f64 (neg.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) (neg.f64 (+.f64 lambda2 lambda1)))
(/.f64 (neg.f64 (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) (neg.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))
(/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 lambda2 lambda1) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
(/.f64 (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2)) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))
(/.f64 #s(literal -2 binary64) (/.f64 #s(literal -2 binary64) (-.f64 lambda1 lambda2)))
(/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(neg.f64 (/.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))
(fma.f64 #s(literal -1 binary64) lambda2 lambda1)
(fma.f64 #s(literal 1 binary64) lambda1 (*.f64 #s(literal 1 binary64) (neg.f64 lambda2)))
(fma.f64 lambda1 #s(literal 1 binary64) (*.f64 (neg.f64 lambda2) #s(literal 1 binary64)))
(-.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1)) (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1)))
(-.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))
(-.f64 lambda1 lambda2)
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))
(+.f64 (*.f64 lambda1 #s(literal 1 binary64)) (*.f64 (neg.f64 lambda2) #s(literal 1 binary64)))
(+.f64 (*.f64 #s(literal 1 binary64) lambda1) (*.f64 #s(literal 1 binary64) (neg.f64 lambda2)))
(+.f64 (neg.f64 lambda2) lambda1)
(+.f64 lambda1 (neg.f64 lambda2))
(*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))
(*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))
(*.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))
(*.f64 #s(literal -1 binary64) (neg.f64 (-.f64 lambda1 lambda2)))
(*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))
(*.f64 (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))
(*.f64 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (-.f64 lambda1 lambda2))))
(*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) #s(literal -1 binary64)))
(*.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))
(pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) #s(literal -1 binary64))
(pow.f64 (/.f64 (+.f64 lambda2 lambda1) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(pow.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))
(/.f64 (*.f64 (neg.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) #s(literal -2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) (+.f64 lambda2 lambda1))
(/.f64 (*.f64 #s(literal 1 binary64) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))
(/.f64 (*.f64 #s(literal 2 binary64) (neg.f64 (-.f64 lambda1 lambda2))) #s(literal -2 binary64))
(/.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 lambda1 lambda1) (*.f64 (neg.f64 lambda2) (neg.f64 lambda2))) (-.f64 lambda1 (neg.f64 lambda2)))
(/.f64 (fma.f64 (*.f64 lambda1 lambda1) lambda1 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 lambda2 lambda2) lambda2))) (fma.f64 lambda1 lambda1 (-.f64 (*.f64 (neg.f64 lambda2) (neg.f64 lambda2)) (*.f64 lambda1 (neg.f64 lambda2)))))
(/.f64 (neg.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) (neg.f64 (+.f64 lambda2 lambda1)))
(/.f64 (neg.f64 (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) (neg.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))
(/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 lambda2 lambda1) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
(/.f64 (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2)) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))
(/.f64 #s(literal -2 binary64) (/.f64 #s(literal -2 binary64) (-.f64 lambda1 lambda2)))
(/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(neg.f64 (/.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))
(fma.f64 #s(literal -1 binary64) lambda2 lambda1)
(fma.f64 #s(literal 1 binary64) lambda1 (*.f64 #s(literal 1 binary64) (neg.f64 lambda2)))
(fma.f64 lambda1 #s(literal 1 binary64) (*.f64 (neg.f64 lambda2) #s(literal 1 binary64)))
(-.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1)) (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1)))
(-.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))) (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))
(-.f64 lambda1 lambda2)
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))
(+.f64 (*.f64 lambda1 #s(literal 1 binary64)) (*.f64 (neg.f64 lambda2) #s(literal 1 binary64)))
(+.f64 (*.f64 #s(literal 1 binary64) lambda1) (*.f64 #s(literal 1 binary64) (neg.f64 lambda2)))
(+.f64 (neg.f64 lambda2) lambda1)
(+.f64 lambda1 (neg.f64 lambda2))
(*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(*.f64 (-.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)))) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))
(*.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))
(pow.f64 (/.f64 (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)))) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(/.f64 (-.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (-.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))
(/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (+.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (-.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (neg.f64 (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)))) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)))) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (-.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (fma.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)))) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64)))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal -1 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (neg.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (neg.f64 (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (neg.f64 (cos.f64 phi2)) (*.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 #s(literal -1 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/4 binary64) (cos.f64 (-.f64 phi2 phi1)))))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
(fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)))))
(fma.f64 (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 phi2) (*.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi2 phi1))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (+.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)))))
(-.f64 (/.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))
(-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) (/.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)) (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(+.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(+.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(+.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))))
(+.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
(+.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)))))
(+.f64 #s(literal 1/2 binary64) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(*.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 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (fma.f64 phi1 phi1 (*.f64 phi2 (+.f64 phi1 phi2))) (-.f64 phi1 phi2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 phi1 phi1 (*.f64 phi2 (+.f64 phi1 phi2)))))
(*.f64 #s(literal 1 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(*.f64 (neg.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64))
(*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)) #s(literal -1 binary64)))
(*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))
(pow.f64 (/.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)) #s(literal 1 binary64)) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)) #s(literal -1 binary64))
(/.f64 (*.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (+.f64 phi1 phi2))
(/.f64 (*.f64 (*.f64 (fma.f64 phi1 phi1 (*.f64 phi2 (+.f64 phi1 phi2))) (-.f64 phi1 phi2)) #s(literal 1/2 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 phi1 phi2))
(/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 phi1 phi1 (*.f64 phi2 (+.f64 phi1 phi2))) (-.f64 phi1 phi2))) (fma.f64 phi1 phi1 (*.f64 phi2 (+.f64 phi1 phi2))))
(/.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/2 binary64) (+.f64 phi1 phi2)))
(/.f64 (-.f64 (*.f64 (*.f64 (*.f64 phi1 phi1) phi1) #s(literal 1/8 binary64)) (*.f64 (*.f64 (*.f64 phi2 phi2) phi2) #s(literal 1/8 binary64))) (fma.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (*.f64 phi1 #s(literal 1/2 binary64)) (fma.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 (neg.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64))
(/.f64 (-.f64 (*.f64 phi1 #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) phi2)) #s(literal 4 binary64))
(/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (*.f64 #s(literal 2 binary64) (+.f64 phi1 phi2)))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))
(/.f64 (*.f64 (fma.f64 phi1 phi1 (*.f64 phi2 (+.f64 phi1 phi2))) (-.f64 phi1 phi2)) (*.f64 #s(literal 2 binary64) (fma.f64 phi1 phi1 (*.f64 phi2 (+.f64 phi1 phi2)))))
(/.f64 (neg.f64 (-.f64 phi1 phi2)) #s(literal -2 binary64))
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(neg.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64)))
(fma.f64 phi1 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (neg.f64 phi2)))
(fma.f64 phi1 #s(literal 1/2 binary64) (*.f64 (neg.f64 phi2) #s(literal 1/2 binary64)))
(fma.f64 phi1 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) phi2))
(fma.f64 phi1 #s(literal 1/2 binary64) (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (neg.f64 phi2)))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 (neg.f64 phi2) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal -1/2 binary64) phi2))
(fma.f64 #s(literal 1/2 binary64) phi1 (neg.f64 (*.f64 phi2 #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 (*.f64 phi1 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (neg.f64 phi2)))
(+.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (*.f64 (neg.f64 phi2) #s(literal 1/2 binary64)))
(+.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/2 binary64) phi2))
(+.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(*.f64 (-.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))
(*.f64 (+.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))))))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64)))))
(pow.f64 (/.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))) (-.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))))))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64))) (+.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 6 binary64)))) #s(literal -1 binary64))
(/.f64 (-.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64))) (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 6 binary64)))) (neg.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))))))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64)))))
(/.f64 (-.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))) (-.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))))))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64))) (+.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 6 binary64)))))
(/.f64 (+.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 6 binary64))) (+.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 6 binary64))) (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))))))) (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64))))
(fma.f64 (pow.f64 (exp.f64 (log.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 1 binary64)) (pow.f64 (exp.f64 (log.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))))))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))))))
(fma.f64 (exp.f64 (log.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))))) (exp.f64 (log.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))))))
(fma.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))))))
(fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))))))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))))))
(fma.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))))))
(fma.f64 (cos.f64 phi1) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))))))
(fma.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))))))
(-.f64 (/.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 4 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(+.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))))))
(*.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))
(*.f64 (+.f64 (pow.f64 (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))
(pow.f64 (/.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)))) #s(literal -1 binary64))
(/.f64 (-.f64 (pow.f64 (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (-.f64 (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)))) (neg.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))
(/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (+.f64 (pow.f64 (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)))))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64))) (fma.f64 (pow.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64))) (fma.f64 (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))
(fma.f64 (pow.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64)))) #s(literal 1 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (pow.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64))) #s(literal 1 binary64)) (pow.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) #s(literal 1/4 binary64)) #s(literal 1 binary64)) (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (pow.f64 (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (pow.f64 (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (pow.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (pow.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) #s(literal 1 binary64)) (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64)))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) #s(literal 1/4 binary64)) (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (/.f64 (pow.f64 (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))
(+.f64 (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(+.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(*.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))
(*.f64 (+.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))
(pow.f64 (/.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))) (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (+.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)))) #s(literal -1 binary64))
(/.f64 (-.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))) (neg.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)))) (neg.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))
(/.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))) (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))) (+.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)))))
(/.f64 (+.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64))) (+.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64))) (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64))))
(fma.f64 (pow.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64)))) #s(literal 1 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(fma.f64 (pow.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64))) #s(literal 1 binary64)) (pow.f64 (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) #s(literal 1/4 binary64)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(fma.f64 (pow.f64 (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (pow.f64 (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(fma.f64 (pow.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(fma.f64 (pow.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64)))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) #s(literal 1/4 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(fma.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(fma.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) #s(literal 2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(fma.f64 (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (exp.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(fma.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(fma.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 phi1) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 phi2) (*.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))) (/.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))
(+.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
(+.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64))) #s(literal 1 binary64))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64))) (cos.f64 (+.f64 lambda2 lambda1)))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64))) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (*.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
(fma.f64 (cos.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (cos.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1))) (*.f64 (sin.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (sin.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1)))))
(fma.f64 (cos.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))) (cos.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))) (*.f64 (sin.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))) (sin.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))))
(fma.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(-.f64 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1 binary64))) (cos.f64 (*.f64 (neg.f64 lambda2) #s(literal 1 binary64)))) (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1 binary64))) (sin.f64 (*.f64 (neg.f64 lambda2) #s(literal 1 binary64)))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1 binary64) (neg.f64 lambda2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1 binary64) (neg.f64 lambda2)))))
(-.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(-.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)))
(-.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2))))
(cos.f64 (/.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))
(cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (*.f64 (cos.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (cos.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (sin.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1)))))
(+.f64 (*.f64 (cos.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))) (cos.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))) (*.f64 (sin.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))) (sin.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))))
(+.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(+.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))
(*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))))
(pow.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) #s(literal -1 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 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (pow.f64 (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (-.f64 (pow.f64 (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))
(/.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))))
(/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))
(/.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))))
(neg.f64 (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))))
(fma.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(fma.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(fma.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 (neg.f64 lambda2) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 (neg.f64 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))
(fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))
(-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))) (/.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))))
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 (neg.f64 lambda2) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 (neg.f64 lambda2) #s(literal 1/2 binary64)))))
(+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))
(+.f64 (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(+.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
(*.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) #s(literal 2 binary64)))
(*.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))) #s(literal 2 binary64)))
(*.f64 (+.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(*.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))))
(*.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(*.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64))))))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(pow.f64 (/.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64))) #s(literal -1 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 lambda1 lambda2))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64)))) (fma.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64)))) #s(literal -1 binary64))
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))
(/.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))))
(/.f64 (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64))) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64))) (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)))) (neg.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64)))) (neg.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
(/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64)))) (fma.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64)))))
(/.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))
(/.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (+.f64 #s(literal 1/4 binary64) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64)))))
(/.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64)))))
(fma.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))
(fma.f64 #s(literal 1/2 binary64) (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))) (/.f64 #s(literal 1/4 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))))
(-.f64 (/.f64 #s(literal 1/4 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(-.f64 (/.f64 #s(literal 1/8 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (/.f64 (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(exp.f64 (*.f64 (log.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))
(+.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)))
(*.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/4 binary64)))
(*.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))) #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 (+.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)))) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) #s(literal 1/2 binary64)))
(pow.f64 (*.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1/4 binary64))
(pow.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64))
(pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)) (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))
(/.f64 (sqrt.f64 (+.f64 (pow.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)))) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (-.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))))
(sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(exp.f64 (*.f64 (log.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1) #s(literal 1/2 binary64)))
(*.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) lambda1)))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal -1/2 binary64))))
(*.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) lambda1)))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 lambda1) #s(literal -1/4 binary64))))))
(pow.f64 (/.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) lambda1)))) #s(literal 1/4 binary64) #s(literal -1/4 binary64))) #s(literal -1 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) lambda1)))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 lambda1) #s(literal -1/4 binary64)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64))) #s(literal -1 binary64))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) lambda1)))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) #s(literal -1/2 binary64))))
(/.f64 (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) lambda1)))) #s(literal 1/4 binary64) #s(literal -1/4 binary64))) (neg.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal -1/2 binary64))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64))) (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) lambda1)))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 lambda1) #s(literal -1/4 binary64))))))
(/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) lambda1)))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal -1/2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) lambda1)))) #s(literal 1/4 binary64) #s(literal -1/4 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) lambda1)))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 lambda1) #s(literal -1/4 binary64)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64))))
(/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (+.f64 #s(literal 1/4 binary64) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) lambda1)))) #s(literal 1/4 binary64)) (*.f64 (cos.f64 lambda1) #s(literal -1/4 binary64)))))
(/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) lambda1)))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 lambda1) #s(literal -1/4 binary64)))))
(fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) #s(literal 1/2 binary64))
(-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) lambda1)))) #s(literal 1/4 binary64)) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal -1/2 binary64))) (/.f64 #s(literal 1/4 binary64) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal -1/2 binary64))))
(+.f64 (*.f64 (cos.f64 lambda1) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) #s(literal -1/2 binary64)))
(*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64))) #s(literal 1 binary64))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64))) (cos.f64 (+.f64 lambda2 lambda1)))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64))) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (*.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
(fma.f64 (cos.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (cos.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1))) (*.f64 (sin.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (sin.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1)))))
(fma.f64 (cos.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))) (cos.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))) (*.f64 (sin.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))) (sin.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))))
(fma.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(-.f64 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1 binary64))) (cos.f64 (*.f64 (neg.f64 lambda2) #s(literal 1 binary64)))) (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1 binary64))) (sin.f64 (*.f64 (neg.f64 lambda2) #s(literal 1 binary64)))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1 binary64) (neg.f64 lambda2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1 binary64) (neg.f64 lambda2)))))
(-.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(-.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)))
(-.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2))))
(cos.f64 (/.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))
(cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (*.f64 (cos.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (cos.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (sin.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1)))))
(+.f64 (*.f64 (cos.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))) (cos.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))) (*.f64 (sin.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))) (sin.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))))
(+.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(+.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(*.f64 (+.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64))) #s(literal 1 binary64))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64))) (cos.f64 (+.f64 lambda2 lambda1)))
(/.f64 (-.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 6 binary64))) (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64)) (*.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))))))
(fma.f64 (cos.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (cos.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1))) (*.f64 (sin.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (sin.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1)))))
(fma.f64 (cos.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))) (cos.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))) (*.f64 (sin.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))) (sin.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))))
(fma.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(fma.f64 (cos.f64 lambda2) (cos.f64 lambda1) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(-.f64 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1 binary64))) (cos.f64 (*.f64 (neg.f64 lambda2) #s(literal 1 binary64)))) (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1 binary64))) (sin.f64 (*.f64 (neg.f64 lambda2) #s(literal 1 binary64)))))
(-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1 binary64) lambda1)) (cos.f64 (*.f64 #s(literal 1 binary64) (neg.f64 lambda2)))) (*.f64 (sin.f64 (*.f64 #s(literal 1 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1 binary64) (neg.f64 lambda2)))))
(-.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(-.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 lambda1)))
(-.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2))))
(cos.f64 (/.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))
(cos.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (*.f64 (cos.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (cos.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1)))) (*.f64 (sin.f64 (/.f64 (*.f64 lambda1 lambda1) (+.f64 lambda2 lambda1))) (sin.f64 (/.f64 (*.f64 lambda2 lambda2) (+.f64 lambda2 lambda1)))))
(+.f64 (*.f64 (cos.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))) (cos.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))) (*.f64 (sin.f64 (/.f64 (*.f64 (*.f64 lambda1 lambda1) lambda1) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))) (sin.f64 (/.f64 (*.f64 (*.f64 lambda2 lambda2) lambda2) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1))))))
(+.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(+.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)))
(+.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))
(*.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) #s(literal 2 binary64)))
(*.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))) #s(literal 2 binary64)))
(*.f64 (+.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(*.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))))
(*.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(*.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64))))))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(pow.f64 (/.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64))) #s(literal -1 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 lambda1 lambda2))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64)))) (fma.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64)))) #s(literal -1 binary64))
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))
(/.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))))
(/.f64 (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64))) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64))) (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)))) (neg.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64)))) (neg.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
(/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64)))) (fma.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64)))))
(/.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))
(/.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (+.f64 #s(literal 1/4 binary64) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64)))))
(/.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64)))))
(fma.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))
(fma.f64 #s(literal 1/2 binary64) (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))) (/.f64 #s(literal 1/4 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))))
(-.f64 (/.f64 #s(literal 1/4 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(-.f64 (/.f64 #s(literal 1/8 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (/.f64 (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(exp.f64 (*.f64 (log.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))
(+.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)))
(*.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) #s(literal 2 binary64)))
(*.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))) #s(literal 2 binary64)))
(*.f64 (+.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(*.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))))
(*.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(*.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64))))))
(*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(pow.f64 (/.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64))) #s(literal -1 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 lambda1 lambda2))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64)))) (fma.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)))) #s(literal -1 binary64))
(pow.f64 (/.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64)))) #s(literal -1 binary64))
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))
(/.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))
(/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))))
(/.f64 (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64))) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64))) (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)))) (neg.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64)))) (neg.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
(/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64)))) (fma.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64)))))
(/.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))
(/.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (+.f64 #s(literal 1/4 binary64) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64)))))
(/.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64)))))
(fma.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))
(fma.f64 #s(literal 1/2 binary64) (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))) (/.f64 #s(literal 1/4 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))))
(-.f64 (/.f64 #s(literal 1/4 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(-.f64 (/.f64 #s(literal 1/8 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (/.f64 (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(exp.f64 (*.f64 (log.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)))
(+.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)))
#s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))
#s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))
(sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))
(*.f64 (pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) #s(literal 1 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(pow.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))
(pow.f64 (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal -1 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 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)))) #s(literal -1 binary64))
(pow.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
(pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64))))))) (pow.f64 (*.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) (-.f64 (pow.f64 (*.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))
(/.f64 (neg.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))
(/.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)))))
(/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))))))
(neg.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))))
(fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (neg.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 phi2))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 phi2)))))
(fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 (neg.f64 phi2) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 (neg.f64 phi2) #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #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))))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64))))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))
(-.f64 (/.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))) (/.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))))))
(-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(exp.f64 (*.f64 (*.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(+.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 phi2)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (neg.f64 phi2)))))
(+.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 (neg.f64 phi2) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 (neg.f64 phi2) #s(literal 1/2 binary64)))))
(+.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(+.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(+.f64 (*.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(+.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (*.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))

eval856.0ms (1.9%)

Memory
63.4MiB live, 1 695.0MiB allocated
Compiler

Compiled 251 134 to 13 236 computations (94.7% saved)

prune1.9s (4.1%)

Memory
-6.1MiB live, 2 886.1MiB allocated
Pruning

259 alts after pruning (259 fresh and 0 done)

PrunedKeptTotal
New3 1491193 268
Fresh81140221
Picked505
Done000
Total3 2352593 494
Accuracy
81.8%
Counts
3 494 → 259
Alt Table
Click to see full alt table
StatusAccuracyProgram
45.8%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
42.9%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
20.6%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
55.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
62.6%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
43.7%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
43.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
43.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) (cos.f64 (+.f64 lambda2 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
43.7%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (fma.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (-.f64 (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (*.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
43.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
26.9%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
32.0%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (+.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
57.2%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
46.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
43.4%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
57.0%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
26.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
62.0%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (/.f64 #s(literal 1/4 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
62.0%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
63.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
22.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)) (fma.f64 phi1 phi1 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
16.0%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi2 phi2 (*.f64 phi1 (-.f64 phi1 phi2))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
24.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
49.8%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
62.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (*.f64 R #s(literal 2 binary64)))
62.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
62.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
34.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (+.f64 phi2 phi1))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
62.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
62.6%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
39.6%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
50.8%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
41.2%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 lambda2) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
44.4%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
47.8%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
39.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) phi1) #s(literal -1/2 binary64) (sin.f64 phi2)) phi1 (cos.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
47.6%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi2)))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
43.0%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi1)))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
62.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
48.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (*.f64 R #s(literal 2 binary64)))
43.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 phi1) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
48.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
43.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (fma.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
29.7%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
34.4%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
35.0%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
34.4%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
25.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (neg.f64 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
37.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
43.9%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
17.9%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
36.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (fma.f64 (neg.f64 lambda1) (/.f64 lambda2 lambda1) lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
37.9%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
39.9%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (/ 2 (/ 2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
29.0%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
30.7%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 lambda2) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
29.8%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
38.9%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
50.4%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
41.0%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (/ 2 (/ 2 (- lambda1 lambda2)))))) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal 1/4 binary64) (*.f64 (sin.f64 lambda1) #s(literal -1/2 binary64))) lambda2 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
48.4%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (/ 2 (/ 2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
40.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (/ 2 (/ 2 (- lambda1 lambda2)))))) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
33.9%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
33.4%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
35.4%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
33.6%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
11.6%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 phi1 (-.f64 (*.f64 (neg.f64 phi2) (neg.f64 phi2)) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
19.1%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (+.f64 phi1 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
32.9%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
18.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
35.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
30.7%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) #s(literal 1/4 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
31.9%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
29.6%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)))) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
33.8%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (fma.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
33.2%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
33.6%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (pow.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))))))) (*.f64 R #s(literal 2 binary64)))
18.8%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (/.f64 (+.f64 #s(literal 0 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64))) (+.f64 #s(literal 0 binary64) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (*.f64 #s(literal 0 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))) (*.f64 R #s(literal 2 binary64)))
33.8%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
33.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64))) (cos.f64 (+.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
32.6%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (/.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
19.8%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
25.2%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
33.4%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
33.4%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
27.7%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))))) (*.f64 R #s(literal 2 binary64)))
30.8%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))))))) (*.f64 R #s(literal 2 binary64)))
33.4%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
15.4%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (fma.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi1) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
23.9%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
25.2%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (*.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
26.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
32.8%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
33.6%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) #s(literal 1/4 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
33.6%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
17.7%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (exp.f64 (*.f64 (*.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
27.3%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (fma.f64 (*.f64 (sin.f64 phi1) phi2) #s(literal -1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
19.9%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
28.8%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
18.6%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (neg.f64 (sin.f64 phi2)) phi1) (cos.f64 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
29.4%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
20.2%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (fma.f64 (*.f64 lambda1 lambda1) #s(literal -1/48 binary64) #s(literal 1/4 binary64)) (*.f64 lambda1 lambda1)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
22.5%
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (*.f64 lambda1 lambda1) #s(literal 1/4 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
62.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (pow.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
62.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (pow.f64 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
62.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (*.f64 (pow.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) #s(literal 1/2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
44.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
29.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
62.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
39.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
71.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
60.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
39.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
63.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
62.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
62.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
62.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
58.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
39.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
63.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
64.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
49.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
66.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
28.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (exp.f64 (log.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))))) (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 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
64.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
75.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
79.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
68.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
79.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi2)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
79.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi2)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (cos.f64 phi1)) (cos.f64 phi2))))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
79.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi2)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
44.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) phi1) #s(literal -1/2 binary64) (sin.f64 phi2)) phi1 (cos.f64 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
53.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) (cos.f64 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
57.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
55.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
79.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
79.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (/.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64))))) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
23.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (/.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
78.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))) (/.f64 #s(literal 1/4 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)))) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
67.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))
75.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))))
78.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
79.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
67.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
55.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64)))))))))))
56.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
48.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))))))))))
53.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
58.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))))
68.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) #s(literal -1 binary64)))))))
62.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) (fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) #s(literal 1/2 binary64))))))))
58.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) (fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) #s(literal 1/2 binary64))))))))
47.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (sin.f64 phi2) phi1) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))))
53.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))))))
42.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (sin.f64 phi1) phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))))
48.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))))))
42.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
20.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
65.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
55.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
65.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
59.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
51.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
56.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
48.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
58.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
55.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
41.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
49.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
49.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
40.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
48.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (pow.f64 (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
66.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
40.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
63.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
50.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
41.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
66.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
49.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
65.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))))
24.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
46.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
14.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
38.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
39.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
45.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) lambda1 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))
47.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
53.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
49.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))
49.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (fma.f64 (neg.f64 (*.f64 lambda1 (cos.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 1 binary64)) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
46.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
46.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
47.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
44.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
49.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
41.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
33.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (+ (* (* (sin (* phi1 1/2)) phi2) (cos (* phi1 -1/2))) (- (pow (cos (* phi1 -1/2)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
19.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
47.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
15.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
47.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
33.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
20.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
42.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
28.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
28.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
43.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))))))
43.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
35.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
34.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
43.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (+.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))))))
29.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(approx (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) (+.f64 (+.f64 #s(literal 1 binary64) (cos.f64 phi2)) (*.f64 #s(literal -2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) #s(literal 2 binary64))))))
43.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
34.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
43.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
34.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
32.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
43.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
34.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
26.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
42.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
13.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
12.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
34.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
24.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
29.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
40.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
32.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
27.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
13.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
31.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
30.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
31.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
34.7%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
64.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
68.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (*.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
73.0%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (*.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (*.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
64.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
62.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
47.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
50.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
49.8%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
50.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
47.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
46.4%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
52.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
49.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
60.2%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
48.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
56.6%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
47.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
43.9%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (neg.f64 phi2) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
36.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
47.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
50.1%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
37.3%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
34.5%
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
79.2%
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))))
67.1%
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (/ (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) 2))))) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64))))))
Compiler

Compiled 57 203 to 13 917 computations (75.7% saved)

regimes2.5s (5.4%)

Memory
-12.9MiB live, 2 416.1MiB allocated
Counts
499 → 1
Calls
Call 1
Inputs
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (fma.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi1) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (*.f64 lambda1 lambda1) #s(literal 1/4 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (fma.f64 (*.f64 lambda1 lambda1) #s(literal -1/48 binary64) #s(literal 1/4 binary64)) (*.f64 lambda1 lambda1)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (*.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (neg.f64 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (+.f64 phi1 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (fma.f64 (neg.f64 lambda1) (/.f64 lambda2 lambda1) lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (/.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 phi1 (-.f64 (*.f64 (neg.f64 phi2) (neg.f64 phi2)) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi2 phi2 (*.f64 phi1 (-.f64 phi1 phi2))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 phi1 (-.f64 (*.f64 (neg.f64 phi2) (neg.f64 phi2)) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (neg.f64 (sin.f64 phi2)) phi1) (cos.f64 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (fma.f64 (*.f64 (sin.f64 phi1) phi2) #s(literal -1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)))) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 phi1) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (exp.f64 (*.f64 (*.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (exp.f64 (*.f64 (log.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (+ (* (* (sin (* phi1 1/2)) phi2) (cos (* phi1 -1/2))) (- (pow (cos (* phi1 -1/2)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 lambda2) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (+ (* (* (sin (* phi1 1/2)) phi2) (cos (* phi1 -1/2))) (- (pow (cos (* phi1 -1/2)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1)))) (*.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1)) #s(literal 1/2 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (/ 2 (/ 2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (+.f64 (cos.f64 phi2) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos.f64 lambda1)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos.f64 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi1)))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi2)))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) #s(literal 1/4 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (+.f64 phi2 phi1))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (+.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)) (fma.f64 phi1 phi1 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (fma.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (fma.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(approx (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) (+.f64 (+.f64 #s(literal 1 binary64) (cos.f64 phi2)) (*.f64 #s(literal -2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (/ 2 (/ 2 (- lambda1 lambda2)))))) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi2) phi1 (cos.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi2) phi1 (cos.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (/.f64 (+.f64 #s(literal 0 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64))) (+.f64 #s(literal 0 binary64) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (*.f64 #s(literal 0 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (/ (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) 2))))) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(approx (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) (-.f64 (+.f64 #s(literal 1 binary64) (cos.f64 phi1)) (*.f64 (+.f64 (cos.f64 phi1) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 #s(approx (cos (- phi1 phi2)) (cos.f64 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (pow.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) #s(literal 1/4 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 lambda2) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (/ 2 (/ 2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) phi1) #s(literal -1/2 binary64) (sin.f64 phi2)) phi1 (cos.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 lambda2) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (/ 2 (/ 2 (- lambda1 lambda2)))))) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal 1/4 binary64) (*.f64 (sin.f64 lambda1) #s(literal -1/2 binary64))) lambda2 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (/.f64 #s(literal 1/4 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 (/.f64 #s(literal 1/4 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (cos.f64 (+.f64 phi2 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (/.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (pow.f64 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64))) (cos.f64 (+.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)) (-.f64 (fma.f64 (cos.f64 phi1) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)) (-.f64 (fma.f64 (cos.f64 phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (sin.f64 phi1) phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (sin.f64 phi2) phi1) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) lambda2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (*.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (*.f64 #s(literal 2 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (*.f64 #s(literal 2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) lambda2)) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) #s(literal 2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (pow.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) lambda2)) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2)) (*.f64 (/.f64 #s(literal 2 binary64) phi1) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (+.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (neg.f64 phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(approx (cos (- phi1 phi2)) (cos.f64 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) (cos.f64 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)) (-.f64 (+.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (*.f64 phi2 #s(literal -1/2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 lambda1 #s(literal 1/2 binary64)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (*.f64 lambda2 #s(literal -1/2 binary64)) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 lambda1 #s(literal 1/2 binary64)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (neg.f64 phi2) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (*.f64 (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1/4 binary64))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) (cos.f64 (+.f64 lambda2 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) #s(literal -1 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi1) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(approx (cos (- phi1 phi2)) (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) phi1) #s(literal -1/2 binary64) (sin.f64 phi2)) phi1 (cos.f64 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) phi1) #s(literal -1/2 binary64) (sin.f64 phi2)) phi1 (cos.f64 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) lambda2) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal -1/8 binary64))) lambda2 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) #s(literal -1/2 binary64))) lambda2 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) (fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) #s(literal 1/2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) (fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) #s(literal 1/2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (*.f64 (cos.f64 phi1) lambda1) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 phi2))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (*.f64 (cos.f64 phi1) lambda1) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 phi2))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (neg.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (neg.f64 phi2) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (fma.f64 (neg.f64 phi1) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 1 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 2 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (neg.f64 (log.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (/.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64))) (/.f64 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))))))) (*.f64 R #s(literal 2 binary64)))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))) (/.f64 #s(literal 1/4 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)))) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (fma.f64 (neg.f64 (*.f64 lambda1 (cos.f64 phi1))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) #s(literal 1 binary64)) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (/.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (/.f64 (fma.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/4 binary64))))) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 3 binary64))) (fma.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 1 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))) (/.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 1 binary64)) (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 3 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi2)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))) (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2)))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (neg.f64 (cos.f64 phi1)) (cos.f64 phi2))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi2)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))))))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (*.f64 (pow.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 6 binary64)) (pow.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) #s(literal 1/2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 4 binary64)))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (*.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)) (pow.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64))) (fma.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (*.f64 (sqrt.f64 (+.f64 (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 6 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (*.f64 lambda1 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) lambda1 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (*.f64 lambda1 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) lambda1 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 (neg.f64 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (cos.f64 phi2))) (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 phi1)) (*.f64 (*.f64 lambda2 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))))) lambda2 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 phi1) lambda2)) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) lambda1)) (*.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (fma.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (-.f64 (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1))) (*.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (fma.f64 (neg.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) #s(literal -1/4 binary64)))) phi1 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))))) phi1 #s(literal 1 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (pow.f64 (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))) lambda1 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (fma.f64 (neg.f64 (fma.f64 (*.f64 lambda1 (cos.f64 phi1)) (*.f64 (fma.f64 (pow.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))) (cos.f64 phi2)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))) lambda1 #s(literal 1 binary64)) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi2)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1))))) (*.f64 (*.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (cos.f64 phi1)) (cos.f64 phi2))))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (*.f64 (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (exp.f64 (log.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))))) (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 #s(literal 1/2 binary64) phi2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (/.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(literal 3 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (*.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (*.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (*.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (*.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 phi2 #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))) (*.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))) (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (*.f64 (neg.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
Outputs
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
Calls

12 calls:

264.0ms
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
259.0ms
(-.f64 lambda1 lambda2)
218.0ms
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
217.0ms
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
206.0ms
phi1
Results
AccuracySegmentsBranch
79.9%1R
79.9%1lambda1
79.9%1lambda2
79.9%1phi1
79.9%1phi2
79.9%1(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
79.9%1(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
79.9%1(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
79.9%1(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
79.9%1(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
79.9%1(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
79.9%1(-.f64 lambda1 lambda2)
Compiler

Compiled 296 to 142 computations (52% saved)

regimes1.5s (3.3%)

Memory
1.2MiB live, 3 565.1MiB allocated
Counts
440 → 1
Calls
Call 1
Inputs
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (fma.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi1) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (*.f64 lambda1 lambda1) #s(literal 1/4 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (fma.f64 (*.f64 lambda1 lambda1) #s(literal -1/48 binary64) #s(literal 1/4 binary64)) (*.f64 lambda1 lambda1)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (*.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (neg.f64 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (+.f64 phi1 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (fma.f64 (neg.f64 lambda1) (/.f64 lambda2 lambda1) lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (/.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 phi1 (-.f64 (*.f64 (neg.f64 phi2) (neg.f64 phi2)) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi2 phi2 (*.f64 phi1 (-.f64 phi1 phi2))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 phi1 (-.f64 (*.f64 (neg.f64 phi2) (neg.f64 phi2)) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (neg.f64 (sin.f64 phi2)) phi1) (cos.f64 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (fma.f64 (*.f64 (sin.f64 phi1) phi2) #s(literal -1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)))) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 phi1) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (exp.f64 (*.f64 (*.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (exp.f64 (*.f64 (log.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (+ (* (* (sin (* phi1 1/2)) phi2) (cos (* phi1 -1/2))) (- (pow (cos (* phi1 -1/2)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 lambda2) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (+ (* (* (sin (* phi1 1/2)) phi2) (cos (* phi1 -1/2))) (- (pow (cos (* phi1 -1/2)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1)))) (*.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1)) #s(literal 1/2 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (/ 2 (/ 2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (+.f64 (cos.f64 phi2) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos.f64 lambda1)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos.f64 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi1)))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi2)))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) #s(literal 1/4 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (+.f64 phi2 phi1))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (+.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)) (fma.f64 phi1 phi1 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (fma.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (fma.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(approx (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) (+.f64 (+.f64 #s(literal 1 binary64) (cos.f64 phi2)) (*.f64 #s(literal -2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (/ 2 (/ 2 (- lambda1 lambda2)))))) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi2) phi1 (cos.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi2) phi1 (cos.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (/.f64 (+.f64 #s(literal 0 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64))) (+.f64 #s(literal 0 binary64) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (*.f64 #s(literal 0 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (/ (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) 2))))) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(approx (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) (-.f64 (+.f64 #s(literal 1 binary64) (cos.f64 phi1)) (*.f64 (+.f64 (cos.f64 phi1) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 #s(approx (cos (- phi1 phi2)) (cos.f64 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (pow.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) #s(literal 1/4 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 lambda2) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (/ 2 (/ 2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) phi1) #s(literal -1/2 binary64) (sin.f64 phi2)) phi1 (cos.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 lambda2) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (/ 2 (/ 2 (- lambda1 lambda2)))))) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal 1/4 binary64) (*.f64 (sin.f64 lambda1) #s(literal -1/2 binary64))) lambda2 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (/.f64 #s(literal 1/4 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 (/.f64 #s(literal 1/4 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (cos.f64 (+.f64 phi2 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (/.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (pow.f64 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64))) (cos.f64 (+.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)) (-.f64 (fma.f64 (cos.f64 phi1) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)) (-.f64 (fma.f64 (cos.f64 phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (sin.f64 phi1) phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (sin.f64 phi2) phi1) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) lambda2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (*.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (*.f64 #s(literal 2 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (*.f64 #s(literal 2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) lambda2)) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) #s(literal 2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (pow.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) lambda2)) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2)) (*.f64 (/.f64 #s(literal 2 binary64) phi1) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (+.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (neg.f64 phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(approx (cos (- phi1 phi2)) (cos.f64 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) (cos.f64 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)) (-.f64 (+.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (*.f64 phi2 #s(literal -1/2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 lambda1 #s(literal 1/2 binary64)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (*.f64 lambda2 #s(literal -1/2 binary64)) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 lambda1 #s(literal 1/2 binary64)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (neg.f64 phi2) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (*.f64 (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1/4 binary64))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) (cos.f64 (+.f64 lambda2 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) #s(literal -1 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi1) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(approx (cos (- phi1 phi2)) (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) phi1) #s(literal -1/2 binary64) (sin.f64 phi2)) phi1 (cos.f64 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) phi1) #s(literal -1/2 binary64) (sin.f64 phi2)) phi1 (cos.f64 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) lambda2) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal -1/8 binary64))) lambda2 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) #s(literal -1/2 binary64))) lambda2 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) (fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) #s(literal 1/2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) (fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) #s(literal 1/2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (*.f64 (cos.f64 phi1) lambda1) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 phi2))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (*.f64 (cos.f64 phi1) lambda1) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (cos.f64 phi2))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (neg.f64 lambda2) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (neg.f64 phi2) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (fma.f64 (neg.f64 phi1) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 1 binary64)) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) #s(literal -1 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (*.f64 lambda2 #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 2 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64)) (pow.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (neg.f64 (log.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (/.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64))) (/.f64 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))))))) (*.f64 R #s(literal 2 binary64)))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal -1/2 binary64))) (/.f64 #s(literal 1/4 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal -1/2 binary64)))) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda2))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
Outputs
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
Calls

12 calls:

132.0ms
phi1
130.0ms
lambda1
128.0ms
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
126.0ms
phi2
123.0ms
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
Results
AccuracySegmentsBranch
79.4%1(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
79.4%1R
79.4%1phi1
79.4%1lambda1
79.4%1lambda2
79.4%1(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
79.4%1(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
79.4%1(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
79.4%1(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
79.4%1(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
79.4%1(-.f64 lambda1 lambda2)
79.4%1phi2
Compiler

Compiled 296 to 142 computations (52% saved)

regimes1.3s (2.9%)

Memory
58.3MiB live, 1 691.1MiB allocated
Counts
390 → 3
Calls
Call 1
Inputs
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (fma.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi1) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (*.f64 lambda1 lambda1) #s(literal 1/4 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (fma.f64 (*.f64 lambda1 lambda1) #s(literal -1/48 binary64) #s(literal 1/4 binary64)) (*.f64 lambda1 lambda1)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (*.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (neg.f64 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (+.f64 phi1 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (fma.f64 (neg.f64 lambda1) (/.f64 lambda2 lambda1) lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (/.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 phi1 (-.f64 (*.f64 (neg.f64 phi2) (neg.f64 phi2)) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi2 phi2 (*.f64 phi1 (-.f64 phi1 phi2))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 phi1 (-.f64 (*.f64 (neg.f64 phi2) (neg.f64 phi2)) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (neg.f64 (sin.f64 phi2)) phi1) (cos.f64 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (fma.f64 (*.f64 (sin.f64 phi1) phi2) #s(literal -1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)))) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 phi1) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (exp.f64 (*.f64 (*.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (exp.f64 (*.f64 (log.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (+ (* (* (sin (* phi1 1/2)) phi2) (cos (* phi1 -1/2))) (- (pow (cos (* phi1 -1/2)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 lambda2) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (+ (* (* (sin (* phi1 1/2)) phi2) (cos (* phi1 -1/2))) (- (pow (cos (* phi1 -1/2)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1)))) (*.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1)) #s(literal 1/2 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (/ 2 (/ 2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (+.f64 (cos.f64 phi2) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos.f64 lambda1)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos.f64 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi1)))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi2)))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) #s(literal 1/4 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (+.f64 phi2 phi1))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (+.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)) (fma.f64 phi1 phi1 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (fma.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (fma.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(approx (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) (+.f64 (+.f64 #s(literal 1 binary64) (cos.f64 phi2)) (*.f64 #s(literal -2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (/ 2 (/ 2 (- lambda1 lambda2)))))) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi2) phi1 (cos.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi2) phi1 (cos.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (/.f64 (+.f64 #s(literal 0 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64))) (+.f64 #s(literal 0 binary64) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (*.f64 #s(literal 0 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (/ (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) 2))))) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(approx (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) (-.f64 (+.f64 #s(literal 1 binary64) (cos.f64 phi1)) (*.f64 (+.f64 (cos.f64 phi1) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 #s(approx (cos (- phi1 phi2)) (cos.f64 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (pow.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) #s(literal 1/4 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 lambda2) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (/ 2 (/ 2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) phi1) #s(literal -1/2 binary64) (sin.f64 phi2)) phi1 (cos.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 lambda2) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (/ 2 (/ 2 (- lambda1 lambda2)))))) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal 1/4 binary64) (*.f64 (sin.f64 lambda1) #s(literal -1/2 binary64))) lambda2 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (/.f64 #s(literal 1/4 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 (/.f64 #s(literal 1/4 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (cos.f64 (+.f64 phi2 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (/.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (pow.f64 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64))) (cos.f64 (+.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)) (-.f64 (fma.f64 (cos.f64 phi1) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)) (-.f64 (fma.f64 (cos.f64 phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (sin.f64 phi1) phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (sin.f64 phi2) phi1) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) lambda2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (*.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (*.f64 #s(literal 2 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (*.f64 #s(literal 2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) lambda2)) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) #s(literal 2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (pow.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) lambda2)) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2)) (*.f64 (/.f64 #s(literal 2 binary64) phi1) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (+.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (neg.f64 phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(approx (cos (- phi1 phi2)) (cos.f64 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) (cos.f64 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)) (-.f64 (+.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (*.f64 phi2 #s(literal -1/2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 lambda1 #s(literal 1/2 binary64)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (*.f64 lambda2 #s(literal -1/2 binary64)) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 lambda1 #s(literal 1/2 binary64)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (neg.f64 phi2) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (*.f64 (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1/4 binary64))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) (cos.f64 (+.f64 lambda2 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) #s(literal -1 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi1) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(approx (cos (- phi1 phi2)) (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) phi1) #s(literal -1/2 binary64) (sin.f64 phi2)) phi1 (cos.f64 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) phi1) #s(literal -1/2 binary64) (sin.f64 phi2)) phi1 (cos.f64 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) lambda2) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal -1/8 binary64))) lambda2 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) #s(literal -1/2 binary64))) lambda2 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) (fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) #s(literal 1/2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) (fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) #s(literal 1/2 binary64))))))))
Outputs
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) (fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) #s(literal 1/2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
Calls

12 calls:

112.0ms
phi1
110.0ms
lambda1
110.0ms
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
108.0ms
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
108.0ms
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
Results
AccuracySegmentsBranch
79.4%3lambda1
72.5%3phi1
70.8%2phi2
68.1%1R
68.1%1(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
68.1%1(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
68.1%1(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
72.1%3(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
72.1%3(-.f64 lambda1 lambda2)
79.5%3lambda2
68.1%1(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
72.0%3(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
Compiler

Compiled 296 to 142 computations (52% saved)

regimes304.0ms (0.7%)

Memory
5.9MiB live, 295.6MiB allocated
Counts
388 → 3
Calls
Call 1
Inputs
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (fma.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi1) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (*.f64 lambda1 lambda1) #s(literal 1/4 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (fma.f64 (*.f64 lambda1 lambda1) #s(literal -1/48 binary64) #s(literal 1/4 binary64)) (*.f64 lambda1 lambda1)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (*.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (neg.f64 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (+.f64 phi1 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (fma.f64 (neg.f64 lambda1) (/.f64 lambda2 lambda1) lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (/.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 phi1 (-.f64 (*.f64 (neg.f64 phi2) (neg.f64 phi2)) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi2 phi2 (*.f64 phi1 (-.f64 phi1 phi2))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 phi1 (-.f64 (*.f64 (neg.f64 phi2) (neg.f64 phi2)) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (neg.f64 (sin.f64 phi2)) phi1) (cos.f64 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (fma.f64 (*.f64 (sin.f64 phi1) phi2) #s(literal -1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)))) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 phi1) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (exp.f64 (*.f64 (*.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (exp.f64 (*.f64 (log.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (+ (* (* (sin (* phi1 1/2)) phi2) (cos (* phi1 -1/2))) (- (pow (cos (* phi1 -1/2)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 lambda2) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (+ (* (* (sin (* phi1 1/2)) phi2) (cos (* phi1 -1/2))) (- (pow (cos (* phi1 -1/2)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1)))) (*.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1)) #s(literal 1/2 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (/ 2 (/ 2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (+.f64 (cos.f64 phi2) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos.f64 lambda1)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos.f64 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi1)))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi2)))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) #s(literal 1/4 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (+.f64 phi2 phi1))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (+.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)) (fma.f64 phi1 phi1 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (fma.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (fma.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(approx (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) (+.f64 (+.f64 #s(literal 1 binary64) (cos.f64 phi2)) (*.f64 #s(literal -2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (/ 2 (/ 2 (- lambda1 lambda2)))))) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi2) phi1 (cos.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi2) phi1 (cos.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (/.f64 (+.f64 #s(literal 0 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64))) (+.f64 #s(literal 0 binary64) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (*.f64 #s(literal 0 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (/ (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) 2))))) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(approx (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) (-.f64 (+.f64 #s(literal 1 binary64) (cos.f64 phi1)) (*.f64 (+.f64 (cos.f64 phi1) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 #s(approx (cos (- phi1 phi2)) (cos.f64 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (pow.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) #s(literal 1/4 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 lambda2) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (/ 2 (/ 2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) phi1) #s(literal -1/2 binary64) (sin.f64 phi2)) phi1 (cos.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 lambda2) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (/ 2 (/ 2 (- lambda1 lambda2)))))) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal 1/4 binary64) (*.f64 (sin.f64 lambda1) #s(literal -1/2 binary64))) lambda2 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (/.f64 #s(literal 1/4 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 (/.f64 #s(literal 1/4 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (cos.f64 (+.f64 phi2 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (/.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (pow.f64 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64))) (cos.f64 (+.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)) (-.f64 (fma.f64 (cos.f64 phi1) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)) (-.f64 (fma.f64 (cos.f64 phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (sin.f64 phi1) phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (sin.f64 phi2) phi1) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) lambda2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (*.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (*.f64 #s(literal 2 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (*.f64 #s(literal 2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) lambda2)) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) #s(literal 2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (pow.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) lambda2)) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2)) (*.f64 (/.f64 #s(literal 2 binary64) phi1) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (+.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (neg.f64 phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(approx (cos (- phi1 phi2)) (cos.f64 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) (cos.f64 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)) (-.f64 (+.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (*.f64 phi2 #s(literal -1/2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 lambda1 #s(literal 1/2 binary64)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (*.f64 lambda2 #s(literal -1/2 binary64)) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 lambda1 #s(literal 1/2 binary64)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (neg.f64 phi2) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (*.f64 (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1/4 binary64))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) (cos.f64 (+.f64 lambda2 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) #s(literal -1 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi1) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(approx (cos (- phi1 phi2)) (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) phi1) #s(literal -1/2 binary64) (sin.f64 phi2)) phi1 (cos.f64 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) phi1) #s(literal -1/2 binary64) (sin.f64 phi2)) phi1 (cos.f64 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) lambda2) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal -1/8 binary64))) lambda2 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) #s(literal -1/2 binary64))) lambda2 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
Outputs
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
Calls

2 calls:

151.0ms
lambda2
111.0ms
lambda1
Results
AccuracySegmentsBranch
78.3%3lambda1
78.1%3lambda2
Compiler

Compiled 12 to 10 computations (16.7% saved)

regimes351.0ms (0.8%)

Memory
-9.5MiB live, 301.2MiB allocated
Counts
384 → 3
Calls
Call 1
Inputs
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (fma.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi1) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (*.f64 lambda1 lambda1) #s(literal 1/4 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (fma.f64 (*.f64 lambda1 lambda1) #s(literal -1/48 binary64) #s(literal 1/4 binary64)) (*.f64 lambda1 lambda1)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (*.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (neg.f64 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (+.f64 phi1 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (fma.f64 (neg.f64 lambda1) (/.f64 lambda2 lambda1) lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (/.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 phi1 (-.f64 (*.f64 (neg.f64 phi2) (neg.f64 phi2)) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi2 phi2 (*.f64 phi1 (-.f64 phi1 phi2))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 phi1 (-.f64 (*.f64 (neg.f64 phi2) (neg.f64 phi2)) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (neg.f64 (sin.f64 phi2)) phi1) (cos.f64 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (fma.f64 (*.f64 (sin.f64 phi1) phi2) #s(literal -1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)))) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 phi1) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (exp.f64 (*.f64 (*.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (exp.f64 (*.f64 (log.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (+ (* (* (sin (* phi1 1/2)) phi2) (cos (* phi1 -1/2))) (- (pow (cos (* phi1 -1/2)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 lambda2) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (+ (* (* (sin (* phi1 1/2)) phi2) (cos (* phi1 -1/2))) (- (pow (cos (* phi1 -1/2)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1)))) (*.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1)) #s(literal 1/2 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (/ 2 (/ 2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (+.f64 (cos.f64 phi2) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos.f64 lambda1)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos.f64 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi1)))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi2)))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) #s(literal 1/4 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (+.f64 phi2 phi1))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (+.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)) (fma.f64 phi1 phi1 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (fma.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (fma.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(approx (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) (+.f64 (+.f64 #s(literal 1 binary64) (cos.f64 phi2)) (*.f64 #s(literal -2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (/ 2 (/ 2 (- lambda1 lambda2)))))) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi2) phi1 (cos.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi2) phi1 (cos.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (/.f64 (+.f64 #s(literal 0 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64))) (+.f64 #s(literal 0 binary64) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (*.f64 #s(literal 0 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (/ (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) 2))))) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(approx (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) (-.f64 (+.f64 #s(literal 1 binary64) (cos.f64 phi1)) (*.f64 (+.f64 (cos.f64 phi1) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 #s(approx (cos (- phi1 phi2)) (cos.f64 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (pow.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) #s(literal 1/4 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 lambda2) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (/ 2 (/ 2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) phi1) #s(literal -1/2 binary64) (sin.f64 phi2)) phi1 (cos.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 lambda2) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (/ 2 (/ 2 (- lambda1 lambda2)))))) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal 1/4 binary64) (*.f64 (sin.f64 lambda1) #s(literal -1/2 binary64))) lambda2 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (/.f64 #s(literal 1/4 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 (/.f64 #s(literal 1/4 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (cos.f64 (+.f64 phi2 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (/.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (pow.f64 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64))) (cos.f64 (+.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)) (-.f64 (fma.f64 (cos.f64 phi1) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)) (-.f64 (fma.f64 (cos.f64 phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (sin.f64 phi1) phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (sin.f64 phi2) phi1) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) lambda2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (*.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (*.f64 #s(literal 2 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (*.f64 #s(literal 2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) lambda2)) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) #s(literal 2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (pow.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) lambda2)) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2)) (*.f64 (/.f64 #s(literal 2 binary64) phi1) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (+.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (neg.f64 phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(approx (cos (- phi1 phi2)) (cos.f64 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) (cos.f64 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)) (-.f64 (+.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (*.f64 phi2 #s(literal -1/2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 lambda1 #s(literal 1/2 binary64)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (*.f64 lambda2 #s(literal -1/2 binary64)) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 lambda1 #s(literal 1/2 binary64)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (neg.f64 phi2) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (*.f64 (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1/4 binary64))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) (cos.f64 (+.f64 lambda2 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) #s(literal -1 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi1) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(approx (cos (- phi1 phi2)) (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) phi1) #s(literal -1/2 binary64) (sin.f64 phi2)) phi1 (cos.f64 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) phi1) #s(literal -1/2 binary64) (sin.f64 phi2)) phi1 (cos.f64 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) lambda2) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal -1/8 binary64))) lambda2 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) #s(literal -1/2 binary64))) lambda2 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
Outputs
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) #s(literal -1 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
Calls

2 calls:

149.0ms
lambda1
131.0ms
lambda2
Results
AccuracySegmentsBranch
74.3%3lambda2
70.9%2lambda1
Compiler

Compiled 12 to 10 computations (16.7% saved)

regimes976.0ms (2.1%)

Memory
-4.6MiB live, 1 126.1MiB allocated
Counts
383 → 1
Calls
Call 1
Inputs
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (fma.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi1) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (*.f64 lambda1 lambda1) #s(literal 1/4 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (fma.f64 (*.f64 lambda1 lambda1) #s(literal -1/48 binary64) #s(literal 1/4 binary64)) (*.f64 lambda1 lambda1)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (*.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (neg.f64 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (+.f64 phi1 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (fma.f64 (neg.f64 lambda1) (/.f64 lambda2 lambda1) lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (/.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 phi1 (-.f64 (*.f64 (neg.f64 phi2) (neg.f64 phi2)) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi2 phi2 (*.f64 phi1 (-.f64 phi1 phi2))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 phi1 (-.f64 (*.f64 (neg.f64 phi2) (neg.f64 phi2)) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (neg.f64 (sin.f64 phi2)) phi1) (cos.f64 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (fma.f64 (*.f64 (sin.f64 phi1) phi2) #s(literal -1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)))) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 phi1) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (exp.f64 (*.f64 (*.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (exp.f64 (*.f64 (log.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (+ (* (* (sin (* phi1 1/2)) phi2) (cos (* phi1 -1/2))) (- (pow (cos (* phi1 -1/2)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 lambda2) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (+ (* (* (sin (* phi1 1/2)) phi2) (cos (* phi1 -1/2))) (- (pow (cos (* phi1 -1/2)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1)))) (*.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1)) #s(literal 1/2 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (/ 2 (/ 2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (+.f64 (cos.f64 phi2) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos.f64 lambda1)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos.f64 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi1)))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi2)))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) #s(literal 1/4 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (+.f64 phi2 phi1))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (+.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)) (fma.f64 phi1 phi1 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (fma.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (fma.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(approx (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) (+.f64 (+.f64 #s(literal 1 binary64) (cos.f64 phi2)) (*.f64 #s(literal -2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (/ 2 (/ 2 (- lambda1 lambda2)))))) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi2) phi1 (cos.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi2) phi1 (cos.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (/.f64 (+.f64 #s(literal 0 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64))) (+.f64 #s(literal 0 binary64) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (*.f64 #s(literal 0 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (/ (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) 2))))) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(approx (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) (-.f64 (+.f64 #s(literal 1 binary64) (cos.f64 phi1)) (*.f64 (+.f64 (cos.f64 phi1) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 #s(approx (cos (- phi1 phi2)) (cos.f64 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (/.f64 (+.f64 #s(literal 1/8 binary64) (pow.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (-.f64 (pow.f64 (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (neg.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) #s(literal 1/4 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 lambda2) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (/ 2 (/ 2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) phi1) #s(literal -1/2 binary64) (sin.f64 phi2)) phi1 (cos.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 lambda2) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (/ 2 (/ 2 (- lambda1 lambda2)))))) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal 1/4 binary64) (*.f64 (sin.f64 lambda1) #s(literal -1/2 binary64))) lambda2 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 (/.f64 #s(literal 1/4 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 (/.f64 #s(literal 1/4 binary64) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (cos.f64 (+.f64 phi2 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (/.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (pow.f64 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 2 binary64))) (cos.f64 (+.f64 lambda2 lambda1))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)) (-.f64 (fma.f64 (cos.f64 phi1) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)) (-.f64 (fma.f64 (cos.f64 phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (sin.f64 phi1) phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (fma.f64 (*.f64 (sin.f64 phi2) phi1) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64)) #s(literal 1/4 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi2 #s(literal -1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda1 lambda2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) lambda2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 (fma.f64 (/.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 (fma.f64 (/.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) phi1))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (*.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1)))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (*.f64 #s(literal 2 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (*.f64 #s(literal 2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (-.f64 #s(literal 1/8 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64)))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 #s(literal 2 binary64) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) lambda2)) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) #s(literal 2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (pow.f64 (pow.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (fma.f64 (pow.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 3 binary64)) #s(literal 1/8 binary64) #s(literal 1/8 binary64))) (fma.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) lambda2)) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 2 binary64) lambda1) (/.f64 #s(literal 2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi2)) (*.f64 (/.f64 #s(literal 2 binary64) phi1) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 2 binary64) phi1) (/.f64 #s(literal 2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (+.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) phi1) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (neg.f64 phi2) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(approx (cos (- phi1 phi2)) (cos.f64 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) (cos.f64 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (cos (- phi1 phi2)) 1/2) 1/2)) (-.f64 (+.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (pow.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (pow.f64 (sqrt.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (*.f64 phi2 #s(literal -1/2 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 lambda1 #s(literal 1/2 binary64)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (*.f64 lambda2 #s(literal -1/2 binary64)) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (*.f64 phi1 #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) (*.f64 lambda1 #s(literal 1/2 binary64)) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (neg.f64 phi2) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 phi1 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (*.f64 (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1/4 binary64))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ (* (sin (* 1/2 phi2)) (neg (cos (* 1/2 phi1)))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)))) (cos.f64 (+.f64 lambda2 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (*.f64 #s(literal -1/2 binary64) phi2) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) #s(literal -1 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal -1 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (fma.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) phi2) (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) (-.f64 (pow.f64 (cos.f64 (*.f64 phi1 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) phi1) (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) phi1 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) lambda1) (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 1/2 binary64))) lambda1 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (*.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (*.f64 (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 lambda2 (+.f64 lambda2 lambda1) (*.f64 lambda1 lambda1)))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(approx (cos (- phi1 phi2)) (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) phi1) #s(literal -1/2 binary64) (sin.f64 phi2)) phi1 (cos.f64 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) (fma.f64 (fma.f64 (*.f64 (cos.f64 phi2) phi1) #s(literal -1/2 binary64) (sin.f64 phi2)) phi1 (cos.f64 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (fma.f64 (neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda2 #s(literal -1/2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (+.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda2 lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (*.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 lambda1 #s(literal 1/2 binary64)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/48 binary64) lambda2) (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) (*.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal -1/8 binary64))) lambda2 (*.f64 (cos.f64 (*.f64 lambda1 #s(literal -1/2 binary64))) #s(literal -1/2 binary64))) lambda2 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (/.f64 (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))))))))
Outputs
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
Calls

7 calls:

177.0ms
lambda1
152.0ms
phi1
137.0ms
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
127.0ms
phi2
116.0ms
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
Results
AccuracySegmentsBranch
68.1%1(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
68.1%1(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
68.1%1(-.f64 lambda1 lambda2)
68.1%1phi2
68.1%1lambda1
68.1%1phi1
68.1%1lambda2
Compiler

Compiled 53 to 43 computations (18.9% saved)

regimes1.2s (2.6%)

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

12 calls:

120.0ms
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
116.0ms
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
113.0ms
phi2
104.0ms
lambda2
95.0ms
(-.f64 lambda1 lambda2)
Results
AccuracySegmentsBranch
67.8%1lambda1
67.8%1(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
67.8%1(-.f64 lambda1 lambda2)
67.8%1phi1
67.8%1(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
67.8%1R
67.8%1lambda2
67.8%1phi2
67.8%1(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
67.8%1(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
67.8%1(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
67.8%1(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
Compiler

Compiled 296 to 142 computations (52% saved)

regimes1.5s (3.4%)

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

12 calls:

238.0ms
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
171.0ms
(-.f64 lambda1 lambda2)
133.0ms
lambda2
131.0ms
R
124.0ms
lambda1
Results
AccuracySegmentsBranch
67.1%1(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
67.1%1(-.f64 lambda1 lambda2)
67.1%1R
67.1%1lambda1
67.1%1lambda2
67.1%1phi1
67.1%1phi2
67.1%1(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
67.1%1(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
67.1%1(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
67.1%1(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
67.1%1(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
Compiler

Compiled 296 to 142 computations (52% saved)

regimes585.0ms (1.3%)

Memory
17.4MiB live, 819.7MiB allocated
Counts
138 → 2
Calls
Call 1
Inputs
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (fma.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi1) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (*.f64 lambda1 lambda1) #s(literal 1/4 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (fma.f64 (*.f64 lambda1 lambda1) #s(literal -1/48 binary64) #s(literal 1/4 binary64)) (*.f64 lambda1 lambda1)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (*.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (neg.f64 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (+.f64 phi1 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (fma.f64 (neg.f64 lambda1) (/.f64 lambda2 lambda1) lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (/.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 phi1 (-.f64 (*.f64 (neg.f64 phi2) (neg.f64 phi2)) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi2 phi2 (*.f64 phi1 (-.f64 phi1 phi2))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 phi1 (-.f64 (*.f64 (neg.f64 phi2) (neg.f64 phi2)) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (neg.f64 (sin.f64 phi2)) phi1) (cos.f64 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (fma.f64 (*.f64 (sin.f64 phi1) phi2) #s(literal -1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)))) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 phi1) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (exp.f64 (*.f64 (*.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (exp.f64 (*.f64 (log.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (+ (* (* (sin (* phi1 1/2)) phi2) (cos (* phi1 -1/2))) (- (pow (cos (* phi1 -1/2)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 lambda2) (sin.f64 lambda2)) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (fma.f64 (*.f64 (cos.f64 lambda1) lambda2) #s(literal -1/2 binary64) (sin.f64 lambda1)) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (+ (* (* (sin (* phi1 1/2)) phi2) (cos (* phi1 -1/2))) (- (pow (cos (* phi1 -1/2)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1)))) (*.f64 (*.f64 phi2 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1)) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1)) #s(literal 1/2 binary64)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (/ 2 (/ 2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (+.f64 (cos.f64 phi2) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos.f64 lambda1)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos.f64 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi1)))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 phi2)))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (/.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) #s(literal 1/4 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi1)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (+.f64 phi2 phi1))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (+.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (fma.f64 phi2 (+.f64 phi2 phi1) (*.f64 phi1 phi1)) (-.f64 phi1 phi2)) (fma.f64 phi1 phi1 (-.f64 (*.f64 phi2 phi2) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 phi2 #s(literal -1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (fma.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (fma.f64 (*.f64 (cos.f64 lambda2) (cos.f64 lambda1)) #s(literal 1/2 binary64) (*.f64 (*.f64 (sin.f64 lambda2) (sin.f64 lambda1)) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 #s(approx (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) (+.f64 (+.f64 #s(literal 1 binary64) (cos.f64 phi2)) (*.f64 #s(literal -2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2))))) #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (neg.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (/ 2 (/ 2 (- lambda1 lambda2)))))) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi1) phi2 (cos.f64 phi1))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi2) phi1 (cos.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (fma.f64 (sin.f64 phi2) phi1 (cos.f64 phi2))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (/.f64 (+.f64 #s(literal 0 binary64) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) #s(literal -1/8 binary64))) (+.f64 #s(literal 0 binary64) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64)) (*.f64 #s(literal 0 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64))) (*.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
Outputs
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (+ (* (* (sin (* phi1 1/2)) phi2) (cos (* phi1 -1/2))) (- (pow (cos (* phi1 -1/2)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
Calls

12 calls:

79.0ms
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
68.0ms
phi1
53.0ms
phi2
47.0ms
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
45.0ms
R
Results
AccuracySegmentsBranch
64.6%1lambda1
64.6%1lambda2
64.6%1(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
64.6%1(-.f64 lambda1 lambda2)
64.6%1R
64.6%1phi2
64.6%1(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
67.2%2(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
67.2%2(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
66.9%2(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
64.6%1(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
64.6%1phi1
Compiler

Compiled 296 to 142 computations (52% saved)

regimes239.0ms (0.5%)

Memory
-1.0MiB live, 428.6MiB allocated
Counts
62 → 2
Calls
Call 1
Inputs
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (fma.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi1) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (*.f64 lambda1 lambda1) #s(literal 1/4 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (fma.f64 (*.f64 lambda1 lambda1) #s(literal -1/48 binary64) #s(literal 1/4 binary64)) (*.f64 lambda1 lambda1)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (*.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (neg.f64 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (+.f64 phi1 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (fma.f64 (neg.f64 lambda1) (/.f64 lambda2 lambda1) lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (/.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 phi1 (-.f64 (*.f64 (neg.f64 phi2) (neg.f64 phi2)) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi2 phi2 (*.f64 phi1 (-.f64 phi1 phi2))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 phi1 (-.f64 (*.f64 (neg.f64 phi2) (neg.f64 phi2)) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (neg.f64 (sin.f64 phi2)) phi1) (cos.f64 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (fma.f64 (*.f64 (sin.f64 phi1) phi2) #s(literal -1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)))) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 phi1) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (exp.f64 (*.f64 (*.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (exp.f64 (*.f64 (log.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
Outputs
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
Calls

12 calls:

24.0ms
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
21.0ms
lambda1
20.0ms
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
19.0ms
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
19.0ms
(-.f64 lambda1 lambda2)
Results
AccuracySegmentsBranch
62.6%1R
62.6%1phi2
62.6%1(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
62.6%1(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
62.6%1(-.f64 lambda1 lambda2)
62.6%1lambda1
62.6%1lambda2
62.6%1phi1
62.6%1(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
64.6%2(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
65.1%2(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
65.1%2(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
Compiler

Compiled 296 to 142 computations (52% saved)

regimes59.0ms (0.1%)

Memory
11.6MiB live, 127.4MiB allocated
Counts
61 → 2
Calls
Call 1
Inputs
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (fma.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi1) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (*.f64 lambda1 lambda1) #s(literal 1/4 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (fma.f64 (*.f64 lambda1 lambda1) #s(literal -1/48 binary64) #s(literal 1/4 binary64)) (*.f64 lambda1 lambda1)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (*.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (neg.f64 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (+.f64 phi1 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (fma.f64 (neg.f64 lambda1) (/.f64 lambda2 lambda1) lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (/.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 phi1 (-.f64 (*.f64 (neg.f64 phi2) (neg.f64 phi2)) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi2 phi2 (*.f64 phi1 (-.f64 phi1 phi2))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 phi1 (-.f64 (*.f64 (neg.f64 phi2) (neg.f64 phi2)) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (neg.f64 (sin.f64 phi2)) phi1) (cos.f64 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (fma.f64 (*.f64 (sin.f64 phi1) phi2) #s(literal -1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)))) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 phi1) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (exp.f64 (*.f64 (*.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (*.f64 (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (exp.f64 (*.f64 (log.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) #s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (cos.f64 phi2))) (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
Outputs
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
Calls

3 calls:

18.0ms
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
17.0ms
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
16.0ms
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
Results
AccuracySegmentsBranch
64.6%2(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
64.6%2(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
64.6%2(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
Compiler

Compiled 167 to 68 computations (59.3% saved)

regimes227.0ms (0.5%)

Memory
-22.7MiB live, 348.8MiB allocated
Counts
56 → 3
Calls
Call 1
Inputs
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (fma.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi1) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (*.f64 lambda1 lambda1) #s(literal 1/4 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (fma.f64 (*.f64 lambda1 lambda1) #s(literal -1/48 binary64) #s(literal 1/4 binary64)) (*.f64 lambda1 lambda1)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (*.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (neg.f64 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (+.f64 phi1 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (fma.f64 (neg.f64 lambda1) (/.f64 lambda2 lambda1) lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (/.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 phi1 (-.f64 (*.f64 (neg.f64 phi2) (neg.f64 phi2)) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi2 phi2 (*.f64 phi1 (-.f64 phi1 phi2))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 phi1 (-.f64 (*.f64 (neg.f64 phi2) (neg.f64 phi2)) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (neg.f64 (sin.f64 phi2)) phi1) (cos.f64 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (fma.f64 (*.f64 (sin.f64 phi1) phi2) #s(literal -1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)))) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 phi1) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))))) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (/.f64 (-.f64 #s(literal 0 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (/.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/4 binary64) #s(literal -1/4 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (exp.f64 (*.f64 (*.f64 (log.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
Outputs
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (*.f64 R #s(literal 2 binary64)))
Calls

12 calls:

20.0ms
lambda2
19.0ms
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
19.0ms
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
18.0ms
R
18.0ms
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
Results
AccuracySegmentsBranch
50.3%2R
65.1%3phi2
49.7%2(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
49.8%2(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
49.8%2(-.f64 lambda1 lambda2)
62.7%3phi1
48.1%1lambda2
50.5%2(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
49.8%2lambda1
51.5%2(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
51.5%2(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
51.5%2(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
Compiler

Compiled 296 to 142 computations (52% saved)

regimes21.0ms (0%)

Memory
4.2MiB live, 42.0MiB allocated
Counts
49 → 3
Calls
Call 1
Inputs
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (fma.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi1) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (*.f64 lambda1 lambda1) #s(literal 1/4 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (fma.f64 (*.f64 lambda1 lambda1) #s(literal -1/48 binary64) #s(literal 1/4 binary64)) (*.f64 lambda1 lambda1)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (*.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (neg.f64 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (+.f64 phi1 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (fma.f64 (neg.f64 lambda1) (/.f64 lambda2 lambda1) lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (/.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 phi1 (-.f64 (*.f64 (neg.f64 phi2) (neg.f64 phi2)) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi2 phi2 (*.f64 phi1 (-.f64 phi1 phi2))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 phi1 (-.f64 (*.f64 (neg.f64 phi2) (neg.f64 phi2)) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (neg.f64 (sin.f64 phi2)) phi1) (cos.f64 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (fma.f64 (*.f64 (sin.f64 phi1) phi2) #s(literal -1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 #s(literal -1/2 binary64) phi1) (neg.f64 (sin.f64 phi2)))) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 phi1) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi1)))))) (*.f64 R #s(literal 2 binary64)))
Outputs
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
Calls

1 calls:

16.0ms
phi2
Results
AccuracySegmentsBranch
65.1%3phi2
Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes30.0ms (0.1%)

Memory
8.9MiB live, 47.3MiB allocated
Counts
44 → 3
Calls
Call 1
Inputs
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (fma.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi1) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (*.f64 lambda1 lambda1) #s(literal 1/4 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (fma.f64 (*.f64 lambda1 lambda1) #s(literal -1/48 binary64) #s(literal 1/4 binary64)) (*.f64 lambda1 lambda1)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (*.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (neg.f64 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (+.f64 phi1 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi1 phi2) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- lambda1 lambda2))) (fma.f64 (neg.f64 lambda1) (/.f64 lambda2 lambda1) lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64)) phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (/.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (+.f64 lambda2 lambda1))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (/.f64 #s(literal 1 binary64) (+.f64 phi2 phi1)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (*.f64 (+.f64 lambda2 lambda1) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (+.f64 lambda2 lambda1)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 phi1 (-.f64 (*.f64 (neg.f64 phi2) (neg.f64 phi2)) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (/.f64 (*.f64 (+.f64 phi2 phi1) (-.f64 phi1 phi2)) (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi2 phi2 (*.f64 phi1 (-.f64 phi1 phi2))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (fma.f64 (*.f64 phi1 phi1) phi1 (*.f64 #s(literal -1 binary64) (*.f64 (*.f64 phi2 phi2) phi2))) (fma.f64 phi1 phi1 (-.f64 (*.f64 (neg.f64 phi2) (neg.f64 phi2)) (*.f64 phi1 (neg.f64 phi2)))))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (neg.f64 (sin.f64 phi2)) phi1) (cos.f64 phi2))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (fma.f64 (*.f64 (sin.f64 phi1) phi2) #s(literal -1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda2) lambda1 (cos.f64 lambda2))) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
Outputs
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
Calls

2 calls:

13.0ms
phi2
12.0ms
phi1
Results
AccuracySegmentsBranch
62.7%3phi1
62.6%3phi2
Compiler

Compiled 12 to 10 computations (16.7% saved)

regimes18.0ms (0%)

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

2 calls:

8.0ms
phi1
7.0ms
phi2
Results
AccuracySegmentsBranch
54.8%3phi2
50.7%3phi1
Compiler

Compiled 12 to 10 computations (16.7% saved)

regimes65.0ms (0.1%)

Memory
-16.2MiB live, 105.2MiB allocated
Counts
14 → 3
Calls
Call 1
Inputs
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (fma.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi1) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (*.f64 lambda1 lambda1) #s(literal 1/4 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (fma.f64 (*.f64 lambda1 lambda1) #s(literal -1/48 binary64) #s(literal 1/4 binary64)) (*.f64 lambda1 lambda1)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (*.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
Outputs
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
Calls

12 calls:

7.0ms
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
6.0ms
phi1
6.0ms
lambda1
5.0ms
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
5.0ms
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
Results
AccuracySegmentsBranch
46.5%3phi1
45.1%3lambda2
35.3%1(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
38.9%2(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
38.9%2(-.f64 lambda1 lambda2)
45.5%3lambda1
35.3%1R
36.9%2(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
38.7%3(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
38.7%3(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
39.0%3(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
45.8%3phi2
Compiler

Compiled 296 to 142 computations (52% saved)

regimes21.0ms (0%)

Memory
-3.9MiB live, 34.8MiB allocated
Counts
13 → 3
Calls
Call 1
Inputs
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (fma.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi1) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (*.f64 lambda1 lambda1) #s(literal 1/4 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (fma.f64 (*.f64 lambda1 lambda1) #s(literal -1/48 binary64) #s(literal 1/4 binary64)) (*.f64 lambda1 lambda1)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (*.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
Outputs
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
Calls

4 calls:

6.0ms
lambda2
4.0ms
lambda1
4.0ms
phi1
4.0ms
phi2
Results
AccuracySegmentsBranch
35.3%1lambda2
35.3%1lambda1
45.0%3phi2
45.1%3phi1
Compiler

Compiled 24 to 20 computations (16.7% saved)

regimes10.0ms (0%)

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

2 calls:

4.0ms
phi2
4.0ms
phi1
Results
AccuracySegmentsBranch
45.0%3phi2
45.0%3phi1
Compiler

Compiled 12 to 10 computations (16.7% saved)

regimes80.0ms (0.2%)

Memory
-6.8MiB live, 76.5MiB allocated
Counts
9 → 1
Calls
Call 1
Inputs
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (fma.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi1) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (*.f64 lambda1 lambda1) #s(literal 1/4 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (fma.f64 (*.f64 lambda1 lambda1) #s(literal -1/48 binary64) #s(literal 1/4 binary64)) (*.f64 lambda1 lambda1)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (*.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
Outputs
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
Calls

12 calls:

34.0ms
R
9.0ms
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
4.0ms
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
4.0ms
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
4.0ms
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
Results
AccuracySegmentsBranch
33.4%1lambda2
33.4%1(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
33.4%1R
33.4%1lambda1
33.4%1(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
33.4%1(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
33.4%1(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
33.4%1(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
33.4%1(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
33.4%1(-.f64 lambda1 lambda2)
33.4%1phi1
33.4%1phi2
Compiler

Compiled 296 to 142 computations (52% saved)

regimes48.0ms (0.1%)

Memory
22.3MiB live, 61.4MiB allocated
Counts
8 → 1
Calls
Call 1
Inputs
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (fma.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi1) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (*.f64 lambda1 lambda1) #s(literal 1/4 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (fma.f64 (*.f64 lambda1 lambda1) #s(literal -1/48 binary64) #s(literal 1/4 binary64)) (*.f64 lambda1 lambda1)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (*.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
Outputs
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
Calls

12 calls:

9.0ms
phi1
4.0ms
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
4.0ms
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
3.0ms
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
3.0ms
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
Results
AccuracySegmentsBranch
33.4%1(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
33.4%1(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
33.4%1(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
33.4%1(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
33.4%1R
33.4%1lambda1
33.4%1lambda2
33.4%1phi1
33.4%1(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
33.4%1(-.f64 lambda1 lambda2)
33.4%1(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
33.4%1phi2
Compiler

Compiled 296 to 142 computations (52% saved)

regimes77.0ms (0.2%)

Memory
-19.3MiB live, 58.9MiB allocated
Counts
7 → 3
Calls
Call 1
Inputs
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) (fma.f64 #s(literal -1/4 binary64) (*.f64 phi1 phi1) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (*.f64 lambda1 lambda1) #s(literal 1/4 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (fma.f64 (*.f64 lambda1 lambda1) #s(literal -1/48 binary64) #s(literal 1/4 binary64)) (*.f64 lambda1 lambda1)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (*.f64 (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
Outputs
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))
Calls

12 calls:

25.0ms
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
20.0ms
phi2
3.0ms
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
3.0ms
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
3.0ms
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
Results
AccuracySegmentsBranch
28.8%1(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
28.8%1(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
28.8%1(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
30.5%2(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
28.8%1R
33.6%3lambda1
30.4%2lambda2
33.5%3phi1
32.0%3(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
32.0%3(-.f64 lambda1 lambda2)
28.8%1(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
33.7%3phi2
Compiler

Compiled 296 to 142 computations (52% saved)

regimes3.0ms (0%)

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

1 calls:

2.0ms
phi2
Results
AccuracySegmentsBranch
33.6%3phi2
Compiler

Compiled 6 to 5 computations (16.7% saved)

regimes52.0ms (0.1%)

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

12 calls:

27.0ms
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
2.0ms
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
2.0ms
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
2.0ms
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
2.0ms
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
Results
AccuracySegmentsBranch
23.9%1(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
25.7%2(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
25.7%2(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
23.9%1R
30.7%3(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
23.9%1lambda2
30.7%3(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
30.7%3(-.f64 lambda1 lambda2)
25.9%2(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
27.8%3phi1
30.9%3lambda1
23.9%1phi2
Compiler

Compiled 296 to 142 computations (52% saved)

regimes58.0ms (0.1%)

Memory
-10.5MiB live, 28.1MiB allocated
Accuracy

Total -5.4b remaining (-11.2%)

Threshold costs -5.4b (-11.2%)

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

9 calls:

44.0ms
(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
2.0ms
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
2.0ms
(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
2.0ms
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
2.0ms
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
Results
AccuracySegmentsBranch
23.9%1phi2
23.9%1(*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
23.9%1(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
23.9%1(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))
23.9%1phi1
23.9%1(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
23.9%1(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
23.9%1(-.f64 lambda1 lambda2)
23.9%1lambda1
Compiler

Compiled 214 to 106 computations (50.5% saved)

bsearch303.0ms (0.7%)

Memory
-10.7MiB live, 148.1MiB allocated
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
196.0ms
2.6438581003654785e-22
8.445498526673045e-18
67.0ms
-3.3713802995867255
-0.3780196735169493
Samples
246.0ms195×1valid
5.0ms29×0valid
Compiler

Compiled 2 243 to 1 224 computations (45.4% saved)

Precisions
Click to see histograms. Total time spent on operations: 240.0ms
ival-sqrt: 112.0ms (46.7% of total)
ival-cos: 45.0ms (18.8% of total)
ival-sin: 37.0ms (15.4% of total)
ival-mult: 13.0ms (5.4% of total)
adjust: 10.0ms (4.2% of total)
ival-sub: 6.0ms (2.5% of total)
ival-div: 5.0ms (2.1% of total)
ival-atan2: 5.0ms (2.1% of total)
ival-pow2: 4.0ms (1.7% of total)
ival-add: 2.0ms (0.8% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

bsearch275.0ms (0.6%)

Memory
16.4MiB live, 168.6MiB allocated
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
156.0ms
1.0517581708749233e-32
7.348414085981384e-24
83.0ms
-328.7788100521967
-0.02973498958917405
Samples
215.0ms218×1valid
9.0ms54×0valid
Compiler

Compiled 2 623 to 1 462 computations (44.3% saved)

Precisions
Click to see histograms. Total time spent on operations: 210.0ms
ival-sin: 102.0ms (48.5% of total)
ival-cos: 47.0ms (22.4% of total)
ival-mult: 16.0ms (7.6% of total)
adjust: 11.0ms (5.2% of total)
ival-sub: 7.0ms (3.3% of total)
ival-div: 6.0ms (2.9% of total)
ival-sqrt: 6.0ms (2.9% of total)
ival-atan2: 6.0ms (2.9% of total)
ival-pow2: 5.0ms (2.4% of total)
ival-add: 2.0ms (1% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

bsearch300.0ms (0.7%)

Memory
5.2MiB live, 254.4MiB allocated
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
148.0ms
8.994164629157128e-42
3.75017669971406e-40
136.0ms
-5.620119497247915e-30
-9.829399111833043e-34
Samples
265.0ms200×1valid
7.0ms40×0valid
Compiler

Compiled 2 430 to 1 377 computations (43.3% saved)

Precisions
Click to see histograms. Total time spent on operations: 259.0ms
ival-cos: 143.0ms (55.2% of total)
ival-sin: 47.0ms (18.2% of total)
ival-mult: 29.0ms (11.2% of total)
adjust: 10.0ms (3.9% of total)
ival-sub: 7.0ms (2.7% of total)
ival-div: 6.0ms (2.3% of total)
ival-sqrt: 6.0ms (2.3% of total)
ival-pow2: 5.0ms (1.9% of total)
ival-atan2: 5.0ms (1.9% of total)
ival-add: 2.0ms (0.8% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

bsearch3.0ms (0%)

Memory
3.2MiB live, 3.2MiB allocated
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
1.0348709498228171e-16
0.008266914175820829
Compiler

Compiled 73 to 35 computations (52.1% saved)

bsearch1.0ms (0%)

Memory
1.0MiB live, 1.0MiB allocated
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
1.0348709498228171e-16
0.008266914175820829
Compiler

Compiled 73 to 35 computations (52.1% saved)

bsearch1.0ms (0%)

Memory
1.8MiB live, 1.8MiB allocated
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
1.0348709498228171e-16
0.008266914175820829
Compiler

Compiled 73 to 35 computations (52.1% saved)

bsearch255.0ms (0.6%)

Memory
10.6MiB live, 283.2MiB allocated
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
153.0ms
2.3559212363598723e-12
351549.1047876032
91.0ms
-58721269.819101736
-932208.5119059926
Samples
218.0ms208×1valid
13.0ms64×0valid
Compiler

Compiled 2 021 to 1 200 computations (40.6% saved)

Precisions
Click to see histograms. Total time spent on operations: 217.0ms
ival-cos: 60.0ms (27.6% of total)
ival-sin: 40.0ms (18.4% of total)
ival-sqrt: 33.0ms (15.2% of total)
adjust: 26.0ms (12% of total)
ival-div: 22.0ms (10.1% of total)
ival-mult: 16.0ms (7.4% of total)
ival-sub: 7.0ms (3.2% of total)
ival-atan2: 7.0ms (3.2% of total)
ival-pow2: 5.0ms (2.3% of total)
ival-add: 2.0ms (0.9% of total)
ival-true: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

bsearch4.0ms (0%)

Memory
6.3MiB live, 6.3MiB allocated
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
2.0ms
2.3559212363598723e-12
351549.1047876032
1.0ms
-58721269.819101736
-932208.5119059926
Compiler

Compiled 2 011 to 1 190 computations (40.8% saved)

bsearch288.0ms (0.6%)

Memory
-13.8MiB live, 305.5MiB allocated
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
125.0ms
5.318107010532431e+39
2.7738489473246122e+42
150.0ms
-11275092697067.41
-803257608.7970437
Samples
254.0ms230×1valid
6.0ms26×0valid
Compiler

Compiled 1 881 to 1 106 computations (41.2% saved)

Precisions
Click to see histograms. Total time spent on operations: 246.0ms
ival-cos: 89.0ms (36.2% of total)
ival-sin: 80.0ms (32.5% of total)
ival-mult: 30.0ms (12.2% of total)
adjust: 11.0ms (4.5% of total)
ival-div: 8.0ms (3.3% of total)
ival-sub: 7.0ms (2.8% of total)
ival-sqrt: 6.0ms (2.4% of total)
ival-atan2: 6.0ms (2.4% of total)
ival-pow2: 5.0ms (2% of total)
ival-add: 2.0ms (0.8% of total)
ival-true: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

bsearch100.0ms (0.2%)

Memory
2.2MiB live, 162.2MiB allocated
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
93.0ms
2.3559212363598723e-12
351549.1047876032
1.0ms
-58721269.819101736
-932208.5119059926
Samples
80.0ms115×1valid
5.0ms29×0valid
Compiler

Compiled 1 858 to 1 105 computations (40.5% saved)

Precisions
Click to see histograms. Total time spent on operations: 77.0ms
ival-cos: 23.0ms (29.8% of total)
ival-sin: 21.0ms (27.2% of total)
ival-mult: 8.0ms (10.4% of total)
adjust: 6.0ms (7.8% of total)
ival-sub: 5.0ms (6.5% of total)
ival-pow2: 3.0ms (3.9% of total)
ival-sqrt: 3.0ms (3.9% of total)
ival-div: 3.0ms (3.9% of total)
ival-atan2: 3.0ms (3.9% of total)
ival-add: 1.0ms (1.3% of total)
ival-true: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

bsearch251.0ms (0.5%)

Memory
-9.9MiB live, 401.3MiB allocated
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
130.0ms
6.094338339253476e-12
4.8602593290007446e-8
107.0ms
-4.384819309540819e-35
-4.735698075889551e-40
Samples
184.0ms220×1valid
39.0ms52×0valid
Compiler

Compiled 1 841 to 1 122 computations (39.1% saved)

Precisions
Click to see histograms. Total time spent on operations: 179.0ms
ival-sin: 44.0ms (24.6% of total)
ival-cos: 34.0ms (19% of total)
ival-atan2: 34.0ms (19% of total)
ival-mult: 24.0ms (13.4% of total)
ival-sub: 11.0ms (6.1% of total)
adjust: 11.0ms (6.1% of total)
ival-sqrt: 7.0ms (3.9% of total)
ival-div: 7.0ms (3.9% of total)
ival-pow2: 5.0ms (2.8% of total)
ival-add: 2.0ms (1.1% of total)
ival-true: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

bsearch3.0ms (0%)

Memory
8.2MiB live, 8.2MiB allocated
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
1.0ms
6.094338339253476e-12
4.8602593290007446e-8
2.0ms
-11275092697067.41
-803257608.7970437
Compiler

Compiled 1 697 to 1 026 computations (39.5% saved)

bsearch58.0ms (0.1%)

Memory
-18.1MiB live, 103.3MiB allocated
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
53.0ms
2.3559212363598723e-12
351549.1047876032
1.0ms
-58721269.819101736
-932208.5119059926
Samples
44.0ms70×1valid
2.0ms10×0valid
Compiler

Compiled 1 756 to 1 054 computations (40% saved)

Precisions
Click to see histograms. Total time spent on operations: 40.0ms
ival-sin: 12.0ms (29.9% of total)
ival-cos: 8.0ms (19.9% of total)
ival-mult: 5.0ms (12.5% of total)
adjust: 3.0ms (7.5% of total)
ival-atan2: 3.0ms (7.5% of total)
ival-pow2: 2.0ms (5% of total)
ival-sub: 2.0ms (5% of total)
ival-sqrt: 2.0ms (5% of total)
ival-div: 2.0ms (5% of total)
ival-add: 1.0ms (2.5% of total)
ival-true: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

bsearch169.0ms (0.4%)

Memory
5.7MiB live, 275.9MiB allocated
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
31.0ms
2.3559212363598723e-12
351549.1047876032
128.0ms
-932208.5119059926
-9.712988034164616e-9
Samples
140.0ms169×1valid
7.0ms39×0valid
Compiler

Compiled 1 973 to 1 194 computations (39.5% saved)

Precisions
Click to see histograms. Total time spent on operations: 134.0ms
ival-cos: 53.0ms (39.6% of total)
ival-sin: 31.0ms (23.2% of total)
ival-mult: 12.0ms (9% of total)
adjust: 8.0ms (6% of total)
ival-sub: 7.0ms (5.2% of total)
ival-sqrt: 6.0ms (4.5% of total)
ival-div: 5.0ms (3.7% of total)
ival-atan2: 5.0ms (3.7% of total)
ival-pow2: 4.0ms (3% of total)
ival-add: 2.0ms (1.5% of total)
ival-true: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

bsearch57.0ms (0.1%)

Memory
-4.4MiB live, 81.8MiB allocated
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
52.0ms
2.3559212363598723e-12
351549.1047876032
2.0ms
-932208.5119059926
-9.712988034164616e-9
Samples
43.0ms46×1valid
3.0ms18×0valid
Compiler

Compiled 1 953 to 1 194 computations (38.9% saved)

Precisions
Click to see histograms. Total time spent on operations: 43.0ms
ival-cos: 21.0ms (48.7% of total)
ival-sin: 9.0ms (20.9% of total)
ival-mult: 4.0ms (9.3% of total)
adjust: 2.0ms (4.6% of total)
ival-sub: 2.0ms (4.6% of total)
ival-pow2: 1.0ms (2.3% of total)
ival-sqrt: 1.0ms (2.3% of total)
ival-add: 1.0ms (2.3% of total)
ival-div: 1.0ms (2.3% of total)
ival-atan2: 1.0ms (2.3% of total)
ival-true: 0.0ms (0% of total)
ival-assert: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

bsearch290.0ms (0.6%)

Memory
16.4MiB live, 401.1MiB allocated
Algorithm
2×binary-search
Stop Event
1×narrow-enough
1×narrow-enough
Steps
TimeLeftRight
97.0ms
0.008411015757846179
21.34688568038269
164.0ms
-7.920002831857569e-16
-3.268533237802718e-22
Samples
187.0ms223×1valid
58.0ms49×0valid
Compiler

Compiled 1 773 to 1 088 computations (38.6% saved)

Precisions
Click to see histograms. Total time spent on operations: 209.0ms
ival-cos: 71.0ms (34% of total)
ival-sin: 48.0ms (23% of total)
ival-mult: 45.0ms (21.5% of total)
adjust: 11.0ms (5.3% of total)
ival-sub: 7.0ms (3.4% of total)
ival-div: 7.0ms (3.4% of total)
ival-sqrt: 6.0ms (2.9% of total)
ival-atan2: 6.0ms (2.9% of total)
ival-pow2: 5.0ms (2.4% of total)
ival-add: 2.0ms (1% of total)
ival-assert: 0.0ms (0% of total)
ival-true: 0.0ms (0% of total)
exact: 0.0ms (0% of total)

simplify56.0ms (0.1%)

Memory
16.5MiB live, 63.3MiB allocated
Algorithm
1×egg-herbie
Rules
390×unsub-neg_binary64
218×*-commutative_binary64
218×neg-mul-1_binary64
134×+-commutative_binary64
134×distribute-neg-out_binary64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
04365038
16035038
27305038
38195038
48925038
59245038
69415038
711125038
813255038
Stop Event
1×saturated
Calls
Call 1
Inputs
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(if (<=.f64 lambda2 #s(literal -3422735716801577/9007199254740992 binary64)) (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (if (<=.f64 lambda2 #s(literal 2661052139999099/324518553658426726783156020576256 binary64)) (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) (fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) #s(literal 1/2 binary64)))))))) (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))))
(if (<=.f64 lambda1 #s(literal -1080863910568919/36028797018963968 binary64)) (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (if (<=.f64 lambda1 #s(literal 2381976568446569/340282366920938463463374607431768211456 binary64)) (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))))
(if (<=.f64 lambda2 #s(literal -2026691723642463/5708990770823839524233143877797980545530986496 binary64)) (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) #s(literal -1 binary64))))))) (if (<=.f64 lambda2 #s(literal 3432790011539591/12259964326927110866866776217202473468949912977468817408 binary64)) (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (/ (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) 2))))) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64))))))
(if (<=.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) #s(literal 2028240960365167/10141204801825835211973625643008 binary64)) (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (+ (* (* (sin (* phi1 1/2)) phi2) (cos (* phi1 -1/2))) (- (pow (cos (* phi1 -1/2)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))) (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))))
(if (<=.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) #s(literal 2028240960365167/10141204801825835211973625643008 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))))
(if (<=.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) #s(literal 2028240960365167/10141204801825835211973625643008 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))))
(if (<=.f64 phi2 #s(literal -950000 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi2 #s(literal 4486248158726163/1180591620717411303424 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi2 #s(literal -950000 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi2 #s(literal 4486248158726163/1180591620717411303424 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi1 #s(literal -820000000 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi1 #s(literal 5400000000000000067330389781411646144512 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi2 #s(literal -950000 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi2 #s(literal 3804640965202595/2305843009213693952 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi1 #s(literal -8137641116658467/187072209578355573530071658587684226515959365500928 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi1 #s(literal 7253554917687775/151115727451828646838272 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi1 #s(literal -850000000 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi1 #s(literal 7253554917687775/151115727451828646838272 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi2 #s(literal -950000 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi2 #s(literal 944473296573929/1180591620717411303424 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(if (<=.f64 phi2 #s(literal -534955578137577/36893488147419103232 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi2 #s(literal 4150517416584649/4611686018427387904 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi2 #s(literal -534955578137577/36893488147419103232 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi2 #s(literal 2597301565578305/2361183241434822606848 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 lambda1 #s(literal -7910139745424151/10141204801825835211973625643008 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 lambda1 #s(literal 2589569785738035/2251799813685248 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (*.f64 lambda1 lambda1) #s(literal 1/4 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
Outputs
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 lambda1))) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (fma.f64 (sin.f64 lambda2) (sin.f64 lambda1) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 (+.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
(if (<=.f64 lambda2 #s(literal -3422735716801577/9007199254740992 binary64)) (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (if (<=.f64 lambda2 #s(literal 2661052139999099/324518553658426726783156020576256 binary64)) (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) (fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) #s(literal 1/2 binary64)))))))) (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))))
(if (<=.f64 lambda2 #s(literal -3422735716801577/9007199254740992 binary64)) (*.f64 (*.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 (+.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R) (if (<=.f64 lambda2 #s(literal 2661052139999099/324518553658426726783156020576256 binary64)) (*.f64 (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 #s(approx (+ (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (neg (* (cos phi2) (cos phi1)))) (+ (* (+ (* (sin phi1) (sin phi2)) (* (cos phi2) (cos phi1))) 1/2) 1/2)) (fma.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) (fma.f64 (neg.f64 (cos.f64 phi1)) (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) R) (*.f64 (*.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 (+.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)))
(if (<=.f64 lambda1 #s(literal -1080863910568919/36028797018963968 binary64)) (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (if (<=.f64 lambda1 #s(literal 2381976568446569/340282366920938463463374607431768211456 binary64)) (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda2 #s(literal -1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))))
(if (<=.f64 lambda1 #s(literal -1080863910568919/36028797018963968 binary64)) (*.f64 (*.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 (+.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R) (if (<=.f64 lambda1 #s(literal 2381976568446569/340282366920938463463374607431768211456 binary64)) (*.f64 (*.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 (+.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R) (*.f64 (*.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 (+.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)))
(if (<=.f64 lambda2 #s(literal -2026691723642463/5708990770823839524233143877797980545530986496 binary64)) (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) #s(literal -1 binary64))))))) (if (<=.f64 lambda2 #s(literal 3432790011539591/12259964326927110866866776217202473468949912977468817408 binary64)) (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (+.f64 (*.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))) (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))))
(if (<=.f64 lambda2 #s(literal -2026691723642463/5708990770823839524233143877797980545530986496 binary64)) (*.f64 (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)) R) (if (<=.f64 lambda2 #s(literal 3432790011539591/12259964326927110866866776217202473468949912977468817408 binary64)) (*.f64 (*.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (*.f64 (pow.f64 (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 (+.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R) (*.f64 (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) R)))
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))) #s(literal 2 binary64))))))
(*.f64 (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (/.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1 binary64)) (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) #s(literal 2 binary64)) R)
(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (*.f64 (sin.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))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (pow.f64 (-.f64 (*.f64 (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R)
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (/ (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) 2))))) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))) (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (/ (- (+ (cos (- phi1 phi2)) 1) (* (+ (* -1/2 (cos (- lambda1 lambda2))) 1/2) (+ (cos (+ phi2 phi1)) (cos (- phi2 phi1))))) 2))))) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 (-.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))))))))))
(if (<=.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) #s(literal 2028240960365167/10141204801825835211973625643008 binary64)) (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (+ (* (* (sin (* phi1 1/2)) phi2) (cos (* phi1 -1/2))) (- (pow (cos (* phi1 -1/2)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))) (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))))
(if (<=.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) #s(literal 2028240960365167/10141204801825835211973625643008 binary64)) (*.f64 (*.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) #s(approx (+ (* (* (sin (* phi1 1/2)) phi2) (cos (* phi1 -1/2))) (- (pow (cos (* phi1 -1/2)) 2) (* (pow (sin (* (- lambda1 lambda2) 1/2)) 2) (cos phi1)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) #s(literal 2 binary64)) R) (*.f64 (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R))
(if (<=.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) #s(literal 2028240960365167/10141204801825835211973625643008 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))))
(if (<=.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) #s(literal 2028240960365167/10141204801825835211973625643008 binary64)) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (cos.f64 phi1)) #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R))
(if (<=.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) #s(literal 2028240960365167/10141204801825835211973625643008 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))))
(if (<=.f64 (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))) #s(literal 2028240960365167/10141204801825835211973625643008 binary64)) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (cos.f64 phi1)) #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (*.f64 (neg.f64 (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 2 binary64)) R))
(if (<=.f64 phi2 #s(literal -950000 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi2 #s(literal 4486248158726163/1180591620717411303424 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi2 #s(literal -950000 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (cos.f64 phi2)) #s(literal 1/2 binary64))))) (*.f64 #s(literal 2 binary64) R)) (if (<=.f64 phi2 #s(literal 4486248158726163/1180591620717411303424 binary64)) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (cos.f64 phi1)) #s(literal 1/2 binary64)))))) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (fma.f64 (cos.f64 phi2) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (cos.f64 phi2)))))) (*.f64 #s(literal 2 binary64) R))))
(if (<=.f64 phi2 #s(literal -950000 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi2 #s(literal 4486248158726163/1180591620717411303424 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi2 #s(literal -950000 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (cos.f64 phi2)) #s(literal 1/2 binary64))))) (*.f64 #s(literal 2 binary64) R)) (if (<=.f64 phi2 #s(literal 4486248158726163/1180591620717411303424 binary64)) (*.f64 (*.f64 #s(literal 2 binary64) R) (atan2.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (cos.f64 phi1)) #s(literal 1/2 binary64)))))) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (cos.f64 phi2)) #s(literal 1/2 binary64))))) (*.f64 #s(literal 2 binary64) R))))
(if (<=.f64 phi1 #s(literal -820000000 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi1 #s(literal 5400000000000000067330389781411646144512 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi1 #s(literal -820000000 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (cos.f64 phi1)) #s(literal 1/2 binary64))))) (*.f64 #s(literal 2 binary64) R)) (if (<=.f64 phi1 #s(literal 5400000000000000067330389781411646144512 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (cos.f64 phi2)) #s(literal 1/2 binary64))))) (*.f64 #s(literal 2 binary64) R)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (cos.f64 phi1)) #s(literal 1/2 binary64))))) (*.f64 #s(literal 2 binary64) R))))
(if (<=.f64 phi2 #s(literal -950000 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi2 #s(literal 3804640965202595/2305843009213693952 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi2 #s(literal -950000 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 #s(literal 2 binary64) R)) (if (<=.f64 phi2 #s(literal 3804640965202595/2305843009213693952 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (cos.f64 phi1)) #s(literal 1/2 binary64))))) (*.f64 #s(literal 2 binary64) R)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 #s(literal 2 binary64) R))))
(if (<=.f64 phi1 #s(literal -8137641116658467/187072209578355573530071658587684226515959365500928 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi1 #s(literal 7253554917687775/151115727451828646838272 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi1 #s(literal -8137641116658467/187072209578355573530071658587684226515959365500928 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (cos.f64 phi1)) #s(literal 1/2 binary64))))) (*.f64 #s(literal 2 binary64) R)) (if (<=.f64 phi1 #s(literal 7253554917687775/151115727451828646838272 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 #s(literal 2 binary64) R)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (cos.f64 phi1)) #s(literal 1/2 binary64))))) (*.f64 #s(literal 2 binary64) R))))
(if (<=.f64 phi1 #s(literal -850000000 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi1 #s(literal 7253554917687775/151115727451828646838272 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi1 #s(literal -850000000 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (cos.f64 phi1)) #s(literal 1/2 binary64))))) (*.f64 #s(literal 2 binary64) R)) (if (<=.f64 phi1 #s(literal 7253554917687775/151115727451828646838272 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 #s(literal 2 binary64) R)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (cos.f64 phi1)) #s(literal 1/2 binary64))))) (*.f64 #s(literal 2 binary64) R))))
(if (<=.f64 phi2 #s(literal -950000 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi2 #s(literal 944473296573929/1180591620717411303424 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi2 #s(literal -950000 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 #s(literal 2 binary64) R)) (if (<=.f64 phi2 #s(literal 944473296573929/1180591620717411303424 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (cos.f64 phi1)) #s(literal 1/2 binary64))))) (*.f64 #s(literal 2 binary64) R)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))) (*.f64 #s(literal 2 binary64) R))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 (*.f64 #s(approx (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi1)) #s(literal 1/2 binary64))))) (*.f64 #s(literal 2 binary64) R))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)) (cos.f64 phi1) #s(literal 1/2 binary64)))))) (*.f64 #s(literal 2 binary64) R))
(if (<=.f64 phi2 #s(literal -534955578137577/36893488147419103232 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi2 #s(literal 4150517416584649/4611686018427387904 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi2 #s(literal -534955578137577/36893488147419103232 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 #s(literal 2 binary64) R)) (if (<=.f64 phi2 #s(literal 4150517416584649/4611686018427387904 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (cos.f64 phi1)) #s(literal 1/2 binary64))))) (*.f64 #s(literal 2 binary64) R)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi2) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (cos.f64 phi1)) #s(literal 1/2 binary64))))) (*.f64 #s(literal 2 binary64) R))))
(if (<=.f64 phi2 #s(literal -534955578137577/36893488147419103232 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 phi2 #s(literal 2597301565578305/2361183241434822606848 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 phi2 #s(literal -534955578137577/36893488147419103232 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 #s(literal 2 binary64) R)) (if (<=.f64 phi2 #s(literal 2597301565578305/2361183241434822606848 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (cos.f64 phi1)) #s(literal 1/2 binary64))))) (*.f64 #s(literal 2 binary64) R)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 #s(literal 2 binary64) R))))
(if (<=.f64 lambda1 #s(literal -7910139745424151/10141204801825835211973625643008 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64))) (if (<=.f64 lambda1 #s(literal 2589569785738035/2251799813685248 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 (*.f64 lambda1 lambda1) #s(literal 1/4 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))))) (*.f64 R #s(literal 2 binary64))) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))))
(if (<=.f64 lambda1 #s(literal -7910139745424151/10141204801825835211973625643008 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 #s(literal 2 binary64) R)) (if (<=.f64 lambda1 #s(literal 2589569785738035/2251799813685248 binary64)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) #s(approx (+ (* (cos lambda1) -1/2) 1/2) (*.f64 #s(literal 1/4 binary64) (*.f64 lambda1 lambda1)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (cos.f64 phi1)) #s(literal 1/2 binary64))))) (*.f64 #s(literal 2 binary64) R)) (*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 #s(literal 2 binary64) R))))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 R #s(literal 2 binary64)))
(*.f64 (atan2.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (fma.f64 (cos.f64 lambda1) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) #s(approx (+ 1/2 (* (cos phi1) (- 1/2 (- 1/2 (* (cos (- lambda1 lambda2)) 1/2))))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (*.f64 #s(literal 2 binary64) R))

soundness2.5s (5.4%)

Memory
-196.3MiB live, 1 787.6MiB allocated
Rules
10 984×lower-fma.f64
10 984×lower-fma.f32
9 312×lower-fma.f64
9 312×lower-fma.f32
7 644×lower-+.f64
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
0127134599
1434134261
0839532709
052010244
1168110020
257709998
081229552
0108487
0191446
1631339
24947339
08123327
090468
0157414
1509338
23718338
08860311
026174
045174
1149149
2997145
08852142
0121124071
1403323254
0811322313
0112693
0197678
1723466
25815466
09038457
0114820435
1382119903
0800218642
Stop Event
1×fuel
1×iter limit
1×node 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×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
Compiler

Compiled 9 845 to 3 387 computations (65.6% saved)

preprocess242.0ms (0.5%)

Memory
-0.1MiB live, 389.2MiB allocated
Remove

(negabs R)

Compiler

Compiled 7 910 to 1 536 computations (80.6% saved)

end0.0ms (0%)

Memory
0.0MiB live, 0.0MiB allocated

Profiling

Loading profile data...